(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    147298,       3092]
NotebookOptionsPosition[    146642,       3067]
NotebookOutlinePosition[    146986,       3082]
CellTagsIndexPosition[    146943,       3079]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"markersize", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"thickness", "=", "0.003"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"axesthickness", "=", "0.003"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"gas", "=", "1"}], ",", 
   RowBox[{"gas", "<", "3"}], ",", 
   RowBox[{"gas", "++"}], ",", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"gap", "=", "0"}], ",", 
      RowBox[{"gap", "<", "10"}], ",", 
      RowBox[{"gap", "++"}], ",", 
      RowBox[{"{", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"imp1", "=", 
         RowBox[{"Import", "[", 
          RowBox[{
           RowBox[{"StringJoin", "[", 
            RowBox[{
             RowBox[{
             "{", "\"\<C:\\\\Users\\\\Prohor\\\\Documents\\\\\:041a\:0430\
\:0444\:0435\:0434\:0440\:0430\\\\test 3\\\\data\\\\output\\\\gas \>\"", 
              "}"}], ",", 
             RowBox[{"ToString", "[", "gas", "]"}], ",", 
             RowBox[{"{", "\"\<\\\\cons_gap_\>\"", "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"ToString", "[", "gap", "]"}], "}"}], ",", 
             RowBox[{"{", "\"\<_up.txt\>\"", "}"}]}], "]"}], ",", " ", 
           "\"\<CSV\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"num", "=", 
         RowBox[{"Length", "[", "imp1", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", "num", "]"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"dataup", "=", " ", 
         RowBox[{"Cases", "[", 
          RowBox[{"imp1", ",", " ", 
           RowBox[{
            RowBox[{"{", "data_", "}"}], "\[RuleDelayed]", "data"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"imp1", "=", 
         RowBox[{"Import", "[", 
          RowBox[{
           RowBox[{"StringJoin", "[", 
            RowBox[{
             RowBox[{
             "{", "\"\<C:\\\\Users\\\\Prohor\\\\Documents\\\\\:041a\:0430\
\:0444\:0435\:0434\:0440\:0430\\\\test 3\\\\data\\\\output\\\\gas \>\"", 
              "}"}], ",", 
             RowBox[{"ToString", "[", "gas", "]"}], ",", 
             RowBox[{"{", "\"\<\\\\cons_gap_\>\"", "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"ToString", "[", "gap", "]"}], "}"}], ",", 
             RowBox[{"{", "\"\<_down.txt\>\"", "}"}]}], "]"}], ",", " ", 
           "\"\<CSV\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"datadown", "=", " ", 
         RowBox[{"Cases", "[", 
          RowBox[{"imp1", ",", " ", 
           RowBox[{
            RowBox[{"{", "data_", "}"}], "\[RuleDelayed]", "data"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"data", " ", "up"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"strartnumber", " ", "=", " ", "8"}], ";", "\n", "\t", 
        RowBox[{"massforappr", " ", "=", " ", 
         RowBox[{"{", 
          RowBox[{"dataup", "[", 
           RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";", "\n", 
        "\t", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", " ", "=", " ", 
           RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
          RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
          RowBox[{"i", "++"}], ",", " ", 
          RowBox[{"{", "\n", "                 ", 
           RowBox[{
            RowBox[{"massforappr", " ", "=", " ", 
             RowBox[{"Append", "[", 
              RowBox[{"massforappr", ",", " ", 
               RowBox[{"dataup", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
           "           ", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"f", "=", 
         RowBox[{"NonlinearModelFit", "[", 
          RowBox[{"massforappr", ",", 
           RowBox[{"d", "+", 
            RowBox[{"c", "*", 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "b"}], ")"}], "^", "2"}]}], "/", "a"}], 
              "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x", ",", 
           RowBox[{"MaxIterations", "\[Rule]", "100"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"Normal", "[", "f", "]"}], "]"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"massor", " ", "=", " ", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"0", ",", " ", 
            RowBox[{"dataup", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";", "\n", 
        RowBox[{"mass", " ", "=", " ", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "0.002083", "*",
              "100"}], ",", " ", 
            RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";", "\n", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
          RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
          RowBox[{"i", "++"}], ",", " ", 
          RowBox[{"{", "\n", "   ", 
           RowBox[{
            RowBox[{"massor", " ", "=", " ", 
             RowBox[{"Append", "[", 
              RowBox[{"massor", ",", " ", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "0.002083", 
                  "*", "100"}], ",", " ", 
                 RowBox[{"dataup", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], 
           "\n", "   ", "}"}]}], "]"}], ";", "\n", 
        RowBox[{"outminusintor", " ", "=", " ", "massor"}], ";", "\n", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", " ", "=", 
           RowBox[{
            RowBox[{"(", " ", 
             RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", 
          " ", 
          RowBox[{"i", " ", "<=", " ", 
           RowBox[{"num", "*", "10"}]}], ",", " ", 
          RowBox[{"i", "++"}], ",", " ", 
          RowBox[{"{", "   ", 
           RowBox[{
            RowBox[{"mass", " ", "=", " ", 
             RowBox[{"Append", "[", 
              RowBox[{"mass", ",", " ", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", 
                  "0.002083", "*", "100"}], ",", " ", 
                 RowBox[{"f", "[", 
                  RowBox[{
                   RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", 
                   "+", "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", 
           "}"}]}], "]"}], ";", "\n", 
        RowBox[{"outminusint", " ", "=", " ", "mass"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"pup", "=", 
         RowBox[{"ListPlot", "[", 
          RowBox[{"outminusint", ",", 
           RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Blue"}], 
             "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"pupor", "=", 
         RowBox[{"ListPlot", "[", 
          RowBox[{"outminusintor", ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
           RowBox[{"PlotLegends", "\[Rule]", 
            RowBox[{"{", 
             SuperscriptBox["\"\<\!\(\*SubscriptBox[\(C\), \(u\)]\)\>\"", 
              RowBox[{"ToString", "[", "gas", "]"}]], "}"}]}], ",", 
           RowBox[{"AxesLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"t", ",", "C"}], "}"}]}], ",", 
           RowBox[{"PlotMarkers", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"Show", "[", 
            RowBox[{"pupor", ",", "pup", ",", 
             RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "]"}], ";"}], 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"data", " ", "down"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"strartnumber", " ", "=", " ", "6"}], ";", "\n", 
        RowBox[{"massforappr", " ", "=", " ", 
         RowBox[{"{", 
          RowBox[{"datadown", "[", 
           RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";", "\n", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", " ", "=", " ", 
           RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
          RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
          RowBox[{"i", "++"}], ",", " ", 
          RowBox[{"{", "\n", "   ", 
           RowBox[{
            RowBox[{"massforappr", " ", "=", " ", 
             RowBox[{"Append", "[", 
              RowBox[{"massforappr", ",", " ", 
               RowBox[{"datadown", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ",
            "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"f", "=", 
         RowBox[{"NonlinearModelFit", "[", 
          RowBox[{"massforappr", ",", 
           RowBox[{"d", "+", 
            RowBox[{"c", "*", 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "b"}], ")"}], "^", "2"}]}], "/", "a"}], 
              "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x", ",", 
           RowBox[{"MaxIterations", "\[Rule]", "100"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"Normal", "[", "f", "]"}], "]"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"massor", " ", "=", " ", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"0", ",", " ", 
            RowBox[{"datadown", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";", "\n", 
        "\t", 
        RowBox[{"mass", " ", "=", " ", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "0.002083", "*",
              "100"}], ",", " ", 
            RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";", "\n", "\t", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
          RowBox[{"i", " ", "<=", " ", "num"}], ",", " ", 
          RowBox[{"i", "++"}], ",", " ", 
          RowBox[{"{", "\n", "         ", 
           RowBox[{
            RowBox[{"massor", " ", "=", " ", 
             RowBox[{"Append", "[", 
              RowBox[{"massor", ",", " ", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "0.002083", 
                  "*", "100"}], ",", " ", 
                 RowBox[{"datadown", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], 
           "\n", "   ", "}"}]}], "]"}], ";", "\n", "\t", 
        RowBox[{"outminusintor", " ", "=", " ", "massor"}], ";", "\n", "\t", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", " ", "=", 
           RowBox[{
            RowBox[{"(", " ", 
             RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", 
          " ", 
          RowBox[{"i", " ", "<=", " ", 
           RowBox[{"num", "*", "10"}]}], ",", " ", 
          RowBox[{"i", "++"}], ",", " ", 
          RowBox[{"{", "   ", 
           RowBox[{
            RowBox[{"mass", " ", "=", " ", 
             RowBox[{"Append", "[", 
              RowBox[{"mass", ",", " ", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", 
                  "0.002083", "*", "100"}], ",", " ", 
                 RowBox[{"f", "[", 
                  RowBox[{
                   RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", 
                   "+", "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", 
           "}"}]}], "]"}], ";", "\n", "\t", 
        RowBox[{"outminusint", " ", "=", " ", "mass"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"pdown", "=", 
         RowBox[{"ListPlot", "[", 
          RowBox[{"outminusint", ",", 
           RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Red"}], 
             "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"pdownor", "=", 
         RowBox[{"ListPlot", "[", 
          RowBox[{"outminusintor", ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
           RowBox[{"PlotLegends", "\[Rule]", 
            RowBox[{"{", 
             SuperscriptBox["\"\<\!\(\*SubscriptBox[\(C\), \(d\)]\)\>\"", 
              RowBox[{"ToString", "[", "gas", "]"}]], "}"}]}], ",", 
           RowBox[{"AxesLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"t", ",", "C"}], "}"}]}], ",", 
           RowBox[{"PlotMarkers", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
        ";", "\[IndentingNewLine]", " ", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"gap", "\[Equal]", "0"}], "||", " ", 
           RowBox[{"gap", "\[Equal]", "9"}]}], ",", " ", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Print", "[", 
             RowBox[{
             "\"\<gas = \>\"", ",", " ", "gas", ",", "\"\<\\n\>\"", ",", 
              "\"\<gap = \>\"", ",", "gap", ",", "\"\<\\n\>\""}], "]"}], ";", 
            "\n", "\t", 
            RowBox[{"Print", "[", 
             RowBox[{"Show", "[", 
              RowBox[{"pupor", ",", "pdownor", ",", "pup", ",", "pdown", ",", 
               RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
               RowBox[{"AxesStyle", "\[Rule]", 
                RowBox[{"Thickness", "[", "axesthickness", "]"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", "Larger"}], ",", 
               RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], "]"}], 
            ";"}], "\n", "     ", "}"}]}], "]"}], ";"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"Show", "[", 
           RowBox[{"pdownor", ",", "pdown", ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "]"}], ";"}], 
        "*)"}], "\[IndentingNewLine]", "}"}]}], "]"}], "\[IndentingNewLine]", 
    "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.572703400551874*^9, 3.572703403509043*^9}, {
   3.5727034363879237`*^9, 3.572703450708743*^9}, {3.5727061462869215`*^9, 
   3.572706173223462*^9}, {3.5727062855988894`*^9, 3.5727063638123627`*^9}, {
   3.5727064709014883`*^9, 3.572706476333799*^9}, {3.5727067341035423`*^9, 
   3.5727068120219994`*^9}, {3.5727068421907244`*^9, 3.572706881399967*^9}, {
   3.572706928182643*^9, 3.572706962446603*^9}, {3.5727070813434033`*^9, 
   3.5727071394627275`*^9}, {3.5727071806710844`*^9, 3.572707480111212*^9}, {
   3.5727075233746862`*^9, 3.5727075642790256`*^9}, {3.572707685238944*^9, 
   3.5727076873920674`*^9}, {3.572707792960106*^9, 3.57270779706334*^9}, {
   3.572707827792098*^9, 3.572707828687149*^9}, {3.5727079597356443`*^9, 
   3.572708221424612*^9}, {3.572708304400358*^9, 3.5727083811257467`*^9}, {
   3.5727084681457243`*^9, 3.572708471585921*^9}, {3.572708568819482*^9, 
   3.572708586670503*^9}, {3.572708622894575*^9, 3.5727087262574873`*^9}, {
   3.572708759495388*^9, 3.5727087831837435`*^9}, {3.5727088500965705`*^9, 
   3.5727089754397397`*^9}, {3.5727093311600857`*^9, 
   3.5727094300287404`*^9}, {3.572709474515285*^9, 3.572709491249242*^9}, {
   3.572709758234513*^9, 3.5727097765965633`*^9}, {3.57270987043793*^9, 
   3.572709908385101*^9}, {3.572709968077515*^9, 3.572709979863189*^9}, {
   3.5727100161322637`*^9, 3.5727100228766494`*^9}, {3.5727101327239323`*^9, 
   3.572710163030666*^9}, {3.5727102287314234`*^9, 3.572710260532243*^9}, {
   3.5727102908629775`*^9, 3.5727102913360043`*^9}, {3.572710378024963*^9, 
   3.572710386207431*^9}, 3.5727104603846736`*^9, {3.572710523510284*^9, 
   3.5727105288335886`*^9}, {3.573457900410771*^9, 3.5734579131194973`*^9}, {
   3.573460228068905*^9, 3.57346024249473*^9}, {3.5734602794048414`*^9, 
   3.5734603736572323`*^9}, {3.5734604134655094`*^9, 
   3.5734604257332106`*^9}, {3.573460606306539*^9, 3.5734606397034492`*^9}, {
   3.5735584633478303`*^9, 3.5735585049782114`*^9}, {3.5735588505819793`*^9, 
   3.5735588884311438`*^9}, {3.5735596491126523`*^9, 3.573559662342409*^9}, {
   3.5738799863086395`*^9, 3.573879992639314*^9}, {3.574011047892864*^9, 
   3.574011074618817*^9}, {3.574762068597328*^9, 3.5747621101786613`*^9}, {
   3.5747621635435076`*^9, 3.5747621725295672`*^9}, {3.5747622505395513`*^9, 
   3.574762326166398*^9}, {3.5747624412336254`*^9, 3.574762585384946*^9}, {
   3.574762616423792*^9, 3.5747626256760936`*^9}, {3.574762705074321*^9, 
   3.5747627138261733`*^9}, 3.574762833558587*^9, {3.574762865773515*^9, 
   3.5747628862008147`*^9}, {3.574763026529708*^9, 3.5747630305913496`*^9}, {
   3.5747630848500247`*^9, 3.5747631460569525`*^9}, {3.574763312749502*^9, 
   3.574763328596723*^9}, {3.5747634985982075`*^9, 3.57476350231754*^9}, {
   3.574763696500745*^9, 3.5747637095114183`*^9}, {3.574763749464261*^9, 
   3.5747637536420355`*^9}, {3.5747639185169277`*^9, 
   3.5747639583166256`*^9}, {3.5747643395126004`*^9, 
   3.5747643403143225`*^9}, {3.574764395690999*^9, 3.574764396160425*^9}, {
   3.5747644625609903`*^9, 3.5747644855376053`*^9}, {3.5747645177765236`*^9, 
   3.5747645240161233`*^9}, {3.574764584459346*^9, 3.5747645846004725`*^9}, {
   3.5747646533771744`*^9, 3.574764668775988*^9}, 3.5747647218696194`*^9, 
   3.5747647544618583`*^9, {3.574764788136069*^9, 3.5747647921726913`*^9}, {
   3.5747649223034325`*^9, 3.5747649251630015`*^9}, {3.574766954877885*^9, 
   3.574766962766992*^9}, {3.5747669936607065`*^9, 3.574767187723776*^9}, {
   3.5747674969451885`*^9, 3.5747675043017836`*^9}, {3.5747675792750425`*^9, 
   3.57476767393299*^9}, {3.5747677058225718`*^9, 3.574767709532901*^9}, {
   3.5747677808458767`*^9, 3.574767787823134*^9}, {3.574767894805109*^9, 
   3.574767900906582*^9}, {3.574767951739188*^9, 3.5747679590497437`*^9}, {
   3.574767997089869*^9, 3.57476808728979*^9}, {3.574768135888387*^9, 
   3.574768142030927*^9}, {3.5747681833840456`*^9, 3.574768187155381*^9}, {
   3.5747684543801126`*^9, 3.5747685015434685`*^9}, {3.5747710046309805`*^9, 
   3.574771209094427*^9}, {3.5747712558203278`*^9, 3.5747713993260717`*^9}, {
   3.574771455160158*^9, 3.574771463346506*^9}, {3.574771523653631*^9, 
   3.5747715373989344`*^9}, {3.5747716111470957`*^9, 
   3.5747717191229625`*^9}, {3.5747717844235463`*^9, 
   3.5747719703973923`*^9}, {3.5747749774020147`*^9, 3.574774988650131*^9}, {
   3.5747750344892282`*^9, 3.5747750457293158`*^9}, {3.57477508285662*^9, 
   3.5747750900721025`*^9}, {3.575428916020542*^9, 3.5754289265189667`*^9}, {
   3.5754290350272675`*^9, 3.57542903615728*^9}, {3.5754310416724606`*^9, 
   3.575431068915903*^9}, {3.575431105488713*^9, 3.5754311130205097`*^9}, 
   3.5754311552103167`*^9, {3.5754311942583485`*^9, 3.575431205219178*^9}, {
   3.579158601522744*^9, 3.5791586027758865`*^9}, 3.5791586901913104`*^9, 
   3.5791587690430202`*^9, 3.5791591299808254`*^9, {3.5791591712118387`*^9, 
   3.579159204593813*^9}, {3.579159286557293*^9, 3.579159306350075*^9}, 
   3.5808946123048973`*^9, {3.580894656257327*^9, 3.58089468375006*^9}, {
   3.5808947151801877`*^9, 3.5808947254984503`*^9}, {3.580894764189159*^9, 
   3.5808947659987803`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"gas = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\"\\n\"\>", "\[InvisibleSpace]", "\<\"gap = \"\>", 
   "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\"\\n\"\>"}],
  SequenceForm["gas = ", 1, "\n", "gap = ", 0, "\n"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.575429060447073*^9, 3.57543107071251*^9, 3.575431162228614*^9, 
   3.575431207960642*^9, 3.5791586059567137`*^9, 3.579158693808526*^9, 
   3.57915873727352*^9, 3.5791587720126867`*^9, 3.579159131484172*^9, {
   3.5791591832235866`*^9, 3.579159206849784*^9}, {3.579159287820422*^9, 
   3.579159307424012*^9}, 3.580894581122926*^9, 3.5808947683438845`*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKXvteydsPrHvtofwb9l/CHo1qbBn
i7388hceev8f22cLPCvT/74TKv/KnvFX7f9nR7fau3TnPP+98oO91bTyq8zP
tkLVf7ZXVblk9s9lo/3PQymrEkK+21dOvr9o8tJ1UP2/7Hf9uD1PYeNS+3W/
YnKP/vtrH7T1Lst9k7lQ8xgcSidcb/b82GhvOFNLYmoIk4Pd9JWeH9paoOYz
O4QaMYQUPk6z59m6rPL4SlaHqmP7Uh4fbIPax+6wfONesS/3PPY/u6B0++c/
DodyXUX5Lzlt+yH2czksrmTo/vNr4v6Db+bZ6ITwODT/yXmyS3Pqfoh7eB3m
2eeGLGeeuX8Wh/S8uJX8DnbR7OzVwpP3Q9wn4KAW5qY8P3zOfutJp+s96gUd
bLwnCAY8XLAf4l4hhzU2jRuC18zar7Ggc8NDTWGHtG+VPZ/OzN4Pcb+ww82K
DUfz5k/dL7rO/WHVFRGHKT/ucH6Ln74f4h9Rhy1PY7pWn+rbz7SHVUikXsxh
7wmWP1Kek/ZD/Cfu8FrykOHpeVP2fzh52GmtpoTDBKNHTBc0eqH+lXCQ+x2p
4/qpdf/d643FblckHcLtzU72/2iF+l/KYeKMBW35ib37Tz21X3K/TtrBacbt
vXfUp0PDQ8bhNN9H/uiqKft3fP57pUJT1uHMdrs15lmw8JF1+LJ0u70478z9
SxmBDrwi55ASzTZnaQosvOQd9rU92NEze9b+0fQ2mt7omd4Axx9yyg==
        "], {{
          RGBColor[0, 0, 1], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKXs9GY6TTGob9kP4t+z7TZWb77hW
2Msvf+Gh9/+xveqUfQJF9+bbQ+Rf2XfnPP+98uMiexcw44O998bFhSvur4Wq
/2y/RELhIkvXDPufh1JWJYR8t8+/wnX5u9QiqP5f9hHy/LXl2rPt1/2KyT36
76/9tElPVabsmwA1j8HBe4JgwEOOSfaGM7UkpoYwOXhI3bkmNm861Hxmh8Oa
xZ97X9TZ82xdVnl8JasDZ+eWXvvASqh97A6H/GUc9r+v3//sgtLtn/84HFYK
/ppZdXcS1H9cDt/e9X9fNXXm/oNv5tnohPA48HY9Y9T5NHs/xD28DtHOK/d2
bFu8fxaH9Ly4lfwOpom/T0rIT9sPcZ+Aw5mZb7lqNyzZbz3pdL1HvaADa+ax
RS/fTNkPca+QQ8qmHf9PlCzYr7Ggc8NDTWGHqJYk7YyoSfsh7hd2SFm78Eqc
y+z9ouvcH1ZdEXG4sesKx1+f3v0Q/4g6zC4zPFuyPtmeaQ+rkEi9mINVtEOG
bU3lfoj/xB3Elr03ZTk+df+Hk4ed1mpKONzdeENNtHcq1L8SDlF8XwJutzXu
v3u9sdjtiqSDt82CnFOifVD/SznsmLjJ9VLelP2nntovuV8n7SCX/ym6ZFML
NDxkHGJ/HPx5ZeOs/Ts+/71SoSnr0BfR7c9o0AcNH1mHlNg7bswVs/cvZQQ6
8Iqcw0KRtXe4zyyChpe8w+s/t1P3v5uyfzS9jaY3eqY3ANy0a1g=
        "], {{
          RGBColor[1, 0, 0], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[0, 0, 1], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJwt1nk4lOsfx3F7dsPM2IaRFpnqlxY5nUOeb6XSopJJiiRpmagcESVrh1F2
nkcSZS9KWm2n3BSyVMK0KDrtzlSiTumI+N3O7a+u1z+5XF/P/Xmbeu5fv0NO
RkZmlqyMzNi/g7e8ij2E3ynDe+2tk21LqI7nL9RSi35QPurrJh18VEDJ2e99
9WbkB1XxSCFt09QCau7lwQor4RC1Y8/WyuSD+ZSnYXRiTNEQlXuwPsS0OY9K
Pqqz8+nIEHWjqOGA2sQ8qvbjaZuZwmHKc9uNu45BuVTfhhns0KJhSq4ywG2g
PYeaiMqlrSPDVJdtX8YPixxqnbldjanwJzU7nVu4NTGbCk1+kHag6CeVVjVF
vPrVGeriD7e99SM/qeE+u/qs4tNU93bpEj3hCBWX9d76amAWpXYvwFBUNELJ
sM2D41ZkUgut5D5XjYxQaYezfzefeIryOZNwR104Sv2b5ecbNXSSylDmnXYv
GqXm3rCwyHmWTjX/ftb/0sgoZa7X3RpUc4I60ntyqux0GWC9HXmlXJxGcSe9
YBULZcBy43lvh3SGKnE2G14fJgNp3vmvF8XSlF2sT89QkQx8XRZIvYxMpbrQ
lfZ8iQzMfHLmy9SwFOrA139vOozKgEdC6T8q4cmUmoAqGhDIgvLngJroqCQq
b0sUfUYoC5nPneqmmyRS1iktYfZhslBxfOprN5t4qr1B2/tzkSwsuO5uRXvG
UnuGNjpnSGShTr1sWU3yMUpu9ulFS0Zl4Y1bt6S1SUxleL2Z+VEgB5YHq15e
Uo2m5pycrs8I5WBxC122TvgH1XTPV942TA7MOuf3niqMpLbJlX96VyQHX6J+
BIbKRlCDVj87EyVyINl61ulOUyiV5L2kfsGoHPTv233EJyeYMs8+dumlQB4q
6h/W1hwLopCk9dRxoTw0at3zPhEZQG1U0RXPC5MH1o/62luxflT/Qje/riJ5
eBL3bZ75yv2U2C93S5REHnYXVz4ozxRRJmf/tp81Kg/hkwsyOjS9qLJnsywf
CxTgwczPSXNhC+XACjAJFyqAR/nAspXZ66l3dn+qCsIU4IWHQ4L9YaBCD8kO
tBUpgEzTqvzqbD7iXlz+8rBEAWp8+oYFF5ajklfxdyeP4v8v/F3hHfEGZKcn
Kb8rUISJ3Yu3DYy6o65VhnkBQkVoPLY0t8rEC/mHeyTwwxTBRSuzJy5vN1K/
XnjoTpEipA8td+1W24vypB+9fCWK4Gba2Bt7wRdZ8+etMxhVhI/NJzdJ6v1Q
x/pD1rcESsDh71k00uaPvMXIzFuoBGU1oVxoO4jkbijqcMKU4KOMp+uD20Eo
o3/VzxtFStD1JTzvbdFhNHdqyt87JEowt08vrOzoEdS86UmH5qgS7Ly99+Ah
x1C0LYGPygUTYPLri2FXVMIR+Z4nQFOAftXjN+Eo6XsxoxI2AaI/eEYtr4pA
5jM/h18pmgDKH+TfGR2PRDUev/i4SibALPun9X7Co8iFCdmoMDoB2JwF/dsN
/kD9TbcXlwiUwaKMranW+QcSj6jMchYqg9LDrbmRqVHov183VBkSmo8pvbWP
RuW70hTOFSnDD2f+rtWD0WhtZlffOokyXPmNrmnPF6N3DyY9GxxRhpCNNl3J
q2JQqKKoIVegAgb9zg55vTFI97fSy6uEKlDIOOybGHsMXdz3LfNrqArEr9R2
nzTlOLLLs47JKlKBjM2ZP2srjqPuxxEHlklUQN/zRK/eilgUoN7o3jeiAkED
E+NsHsYitUWaK9MFquC8pfzL8i1xqCBAOH+RUBWsK5d8dXwZh6yLMya+D1WF
Go1lPL9t8Yi8f6pgF2R6DnXHI2/2tO/WElV4+k2c6OicgMh7qApNqoqHbFsS
UOaRq/fiBWrwLrPwZqZNIiLvI7bD7Z2RxYmo+S2V/1eoGqx9sC8tUjUJkfdS
DYLSHa2NbZPQ4Jq7h+dI1MAqV/4CzzcJkfdTDS4N/Wkfk52EBBUujkcF6iDM
T1u+tzUJkfdUHf7Mtb8mGU5Cm0zfTnsYqg67Vr7Y32iejMj7qg5LHZNnr3dK
RuLjv4+YSdTBXxgXEXwkGZH3Vh1uer+85ZCfjCr++SkJEmhAjPdeQXtzMiLv
rwYM+LdVa/cno3dux883h2pAoL//Ni4nBZH3WAMiLBLq3lqlIG6DbqSRRAOK
I619Y11SEHmfNcDI71St5qEUtMwiz2WfQBPmln59H5iegsh7rQnPrV7/c78s
BQWkW1jUhGpCRkl8JU+Sgsj7rQkx/FefdvSnoAJZ/IFINKGtrtPouloqIu+5
JmwW385lmaUiyR77ru0CLdjwgC4Lo1IRed+1INkbdqi4pCI5ieTK9VAt+KrH
Tr22PxWR914LOg5xh8XRqchy4bZjEyRa0GJ8wPJ4Zioi778W9Nq8O1d7ORXN
6RgovcBhwfRv085YNqQisgcsWFLsZSXtTEWNExae2kCxIHDptV1vP6Yisg8s
eKyWpmQxmoq22RyNHhGxYLhuf20Li0ZkL1hwpVdrUq0pjf71bfr9LM2C71fn
JnDm0ojsBwsKg1XsWxbRKKlAa8s6xALJhbp979fRiOwJC5QTTUYPbqWR+dMN
9oNSFkwb6O0I2Esjsi8s+CQ+X/jhMI2QZua8XI42XPNUZ3WLaUT2RhuU+hNi
1tA02rjkFX8VpQ2lpZoiu2wakf3RhpCmjR9unadRX6C56leRNmhZ/Tn9fhmN
yB5pw811eVP21NJIfAF/oLQ20IXmlRktNCL7pA1mTwrPb39II5OX114sRdqA
djjmNT6nEdkrbdhMNc6410OjMu5QyyepNvj+c/66fz+NyH5pw8FNc07c+pdG
DisXlZ/g6EB82jX1KhkGkT3TgVK3Vb+6KzPobag4Fygd0F3mPO2KFoPIvunA
vtnaTRW6DArBn6dUpANPj0wa9DdmENk7HdjIEwRLJzOI+zf7UAqtA9dWrBjW
n84gsn86kNVXzlaazaASo81e1kgHHkbaLbk6n0FkD3VA3ePl90nWDLJzzF77
RqoDBtHTj28EBpF91IGG3Pe2TksZ9Czq3W/xHDac3XZ6uf5KBpG9ZAP96dut
c2sY5F8108yKYkPbaeFNJScGkf1kQ8+1NXMsNzJIrc9P+y8RG/wspyrPc2UQ
2VM2UDcoQ8WtDMqfXDksptlg7J5vccGTQWRf2fDIZ6/M9J0MsnYZ7ZmN2FD2
68L54SIGkb1lg+KN0l2XfBjUHre0o1PKhhrj5kk39jOI7C8brgp2v873Y5B3
bWx1JIcDoyfO6vsEMIjsMQc6rBynsIMYJIfXdgbFgX97KddThxlE9pkDv2fW
KyqFMGjsHBIRB6wfaHgIwxhE9poDnS6hGeIIBs3d6h4eQnPg23Xu0+yjDCL7
zQFVrzsLcqLwvVLzvc0QBwJVHtUfEzPje84BY/GMaNdjDPJsfO/cKuXA+76L
/nqxzPi+c2CXd3pkdRy+1/DsxUEcLhRMuH3CMYEZ33su7AwbTmlLxPeaE/g/
U4oLTYPrV1LJzPj+c2G00SP2VAq+186b+s0iLijPSuP1pDLjPcCFomkRFZMY
BtVkyCscoLlg6cTWX5vGjPcBFx6/ffu3zwkGubSu6OMhLqTWB7cfSWfGe4EL
Ck0RAWEn8b3kk57WSbkQMVXDJyCDGe8HLkxhP1mx9RS+14JH9Xs5upBw8Ujm
wkxmvCd0wWHixQ+sLAbx9xpd1qV04W9t38pObNIXutAStDoy/TS+V45nJhLp
ggCJbzqcYcZ7QxdWOTl1D2KveXROvJvWhZCCkTVZ2cx4f+gCP8sseEEOvpcq
/gNEujAj/nV9CzbpEV2ouPQtYWMuvhc1371Kqgv3f+mf04VN+kQXVHo9lTbn
4Xv5B6/YztEDvyNyHm3YpFf04PX21oTF+fhe52ot1Sk9cGSs/yrBJv2iB9Cx
JoNdwKCl3RMmXhfpwYnWJkV/bNIzeiDPtfdqxe7SXqPmTutB/y2Pb1MLmfG+
0QP+lIZvgdj+y+gBJaQHZdO8ztRjk97Rg8t1IQKts/hewU9flkr1YOnapkYh
NukfPfh8J7Y0DTuvdOI9F44+FM64qvEQm/SQPgTd7WOxzjHI5s3OCllKH1Sr
7r5Zjk36SB964M6VI9gd+iV5xSJ9aBDvyL2ITXpJH3IcV3d2Y+9x+CfBidYH
tw9OwapFzHg/4Z+3KrPYElsu8tfDw9X6kOCdLXbDJj2lD2bP7edEYmeUhe0o
kOpDWMnPugJs0lf6IHe03P0O9rwP9evWcAzAzJRl0INNessANluu11Asxt+X
ibrNd1sDaAiPcTLFJv1lACF+cXI22NuE66dliwzgCJczewM26TEDuHsY9ftg
D8ak66ygDeBF4lSXo9ikzwxgwd4XQenYSTef//xcbQBTTE96XcAmvWYA+4Z0
ZiJswZcp0gypAYS6W/31AJv0G/75hrz4l9g1Zt6SJRxDaHfWsfuMTXrOEGZq
XtKWOY/v5XoZfbQ1BMpUIqeJTfrOEGYrXJ3Mw+5PxH8wIkOIUn0eNg2b9J4h
eG1YNWkednTdwjRb2hCqdm3h2mKT/jOER9vfe9pjTxw8GtFTbQhd3xZz1mOT
HjSETZ8WzHXFLv9fs0+S1BB+SZpavx2b9KEhaDF9Em/stZ4sl185PPj0niU6
gE16kQeuszJjDmP3pDkveWXLgwOvF/0WgU36kQe1vhv+EGOHtGTOihXxIOB5
m088NulJHuxzcx9MwdaTeW1gSfMgPnm9RTo26UseZJZVsbOwSywFit3VPFAP
cz2fg016kwclbdd/FGAvFe3vj5LyIMRJVakYm/QnD6Ib3NpKsJ9nXX82i2ME
yDbQ4zI26VEjaJ7VW3YN2799qOGxrRGsXsN/Uo5N+tQIil1/vVOFrT5h8ZVw
kRHUVNmKb2KTXjWCGV/keDXY+fjPRUAbwWXlOVG3sEm/GsEvdasb67BtfO/H
tFcbwdmWa+8asEnPGsH0kvxXjdiSfI5/sNQIBpqsqpvH7vVf3xrBJ/OdwXfH
7tW5eesUjjEsn8Myuo9NetcY1q4ZyGnFltfMWXnP1hh8QpBmGzbpX2PYfWdw
ezv2ycU98w+KjOFHAS+vA5v0sDH84Rx1T4I9D8+HCW0MI4aRbx5ikz42hnbR
Cukj7JbzB9Qbq40hXUOm+zE26WVjODC/subJ2L1eVH73lRpD08FAphOb9LMx
TKv9n9tT7B8cfGAOHz7Y1XCfYZOe5sNuB8XbY05asez+LVs+zNZq8OrCJn3N
BwVvNDTm6aFxld4iPvALc2O6sUlv88FOX1f9OfYtnJMcmg/w4Hr0mEl/82GG
BWdwzC49+kk3q/mgG1y1/a+x7+u/HudDgEhwZ8z9vK3BO6V8qMvpnPwCm/Q5
H+4tsDk8ZvG6gp1aHBPonfJn85hJr5vA7fOV3JfYJlEfHCtsTSC1iXYdM+l3
E2hKycscc0XlnIXbRCbQlvhL55hJz5tAKTtL+9XY9/UJByptAsfjecvGTPre
BEIefjs45v8DzV0qDA==
         "]]}, {}}, {{}, {
        RGBColor[1, 0, 0], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJwt1nk0lGscB3D7HsYMxk4LTUlX2sPzC3WVmyShhRK5d6KStGcLcWU3b4tE
WSpCUZY2j4qK9ppSEtGicYVK9uW+r6e/nM85c+Yc5zfP9/s12rzDeYuEmJiY
jbiYGPPX7qh/21BeNwI504hzbbnI4PxXe7Oxn2hpaV3P/Oc5aIXqboMwlx6k
ejAu3DY3B4XsF+99nteDIstuTIndk4MKW+MfTRrrQU330FetJTmo0UE7e7fL
L8SNtIgQY+UgpdJz++/n/UJvlOI8/mrIRov0LZy0xn6hAx57I5XOZiO/aGzs
59KLLH/tyXHako3Suh1Gbub1ot6ehRI8k2xUt/bNS+WxXtRuZ7Pr3JcsNHDH
J3+TSx/S2G7n2pCdhaaafg8ryetD8zv5R197ZiF3KthNaqwPff3k5l+omYWi
R+XNXF36kZIip3rnk7Oo/O9jUhfy+pH7r5p7cyPOoi/PJr4bGO1H6YXr5FXn
nkUaCy8VO7gMIIkylf2stjPILntRzOm8AZQW1+688tgZtFvpgWfX6ADSrjHS
abI9g3J3u8xZ7DKI1goGpuY2Z6KXTR8UU/MGkWKm546I2ZlIwn5b66fRQRT6
ceua8CMZaFbxQMVclyE0/ePWgNpXp9Fm7SOJMXlDyK22Pv7IxNMoOULNt2F0
CLVZO2Z99E9HtzsyLE1dhlGwZGGFYukp1LVmOjskbxgl+/i08IbSkCEuFz0d
HUaJW8eM+CgNOU21qzJyGUHXVnT59ISfRCHJz47tyhtBa/ad5ffeOYGKBjds
qxkdQfKKX6+elDiB3nuLbDVdRpH04ZvhcouPI8XHu7X5eaMIYe8S/5BjyGqu
xPfro6Po6cbB213XKeSfmXBfyWUMlTfvKLveK0BpcjoZnnljKDe/V63XXIDq
dp4Pujw6ht4/6ayr9U9Fh76dnCI+TQysTjvN8TifgtQnflDNdxGDNna6WH1L
Mip0NR52DhUDHL7KxEM3GZHfoxj89Or7xHFLQo245EWOUAz0+73clkxORLt6
+m+tGBODe7XPZ7ucikeKPJTXyxOHSvbktlPsOJTtESXIdBEHtVEJ3qb4WLQo
5WGofag4+BbVNLTK/Yte3GP5fc8TB4kbST+9j0SjrUNurmlC+vOzLu8ykjmC
JP7IWGw7Jg4vTE3d3WIiUZrPJ9MOngQYqpxIRBMikPnJaVzKRQJuVut0s6hw
VPs4QNI6VAKqQkrNpAzDkJdEeeeXPAm4sNH7UuqGYDQwd+RtolACDkUXJE0N
O4CS/Gxr5o9JwKbCA6unXNyLpp7593ILTxJihkvffnwfhLDw6alYF0n4quGc
eI0biNzkNaItQiVh6oxHjzvLt6Nuqw2BjXmSsK+6+/LLlXwUHZjlESWUhAus
luriAe/f71cSuo3CZxn6e6Cyd2az63lS8CF5ZelbhdW/37MUhBk/OPzrzGL0
xe6GAi9UCsQmb5KeP5GDyfuWAsPa2MhA96VYvejPlgNCKYBP0z+ofHPB5L1L
QUBq2DnxSE9spyksf8STBjHZslrLfm9M3j/tlsaYgRP/4KCwTQn6odKQtFa+
fnjSNkzyQBqkmkrNYx8F4GxRh0+AUBpA8eZjheFATPJBGoJ2DVZuN9yNXzrv
X3SHJwOGczvnXFiwF5O8kIEqx4yhgj/3Y4mb0mqcUBk40GTovmf5QUzyQwaO
nHPoF7MJxrOmpHzdIpSBgh25L/4yC8UkT2Rg5Y/XUUXRYdgrQR+X82ShO/FB
x6nAcEzyRRasOgstfrodxkl9+ZR8qCx89mtdf31eBCZ5Iwvs6qd3+1mRuGrT
PP/1QllwaJfmln+JxCR/ZGHb0EK7sdIo3F1716aQJweFqZY+jaFHMMkjOfgr
/t3VdXbRePzfDZGD3KaGyGjJGEzySQ7eDYqm7LwVg1emN3Y5CeVA4W7Je+PA
fzHJKzkIuSVRX2EUi0Ok+feyePKQ1aHBnv8oFpP8kocmG9b6sp1HcdH2X+k9
IfLQ45RhvlQtDpM8k4d1/s+rBwvj8Pv68F1LhfJwnmf1oc0uHpN8k4fhnBXN
RvXxWHGx8vITPAWwvyzKvOWTgEneKUBN+sbdz74l4EX5aYbtIQrg8/OsTkBg
Iib5pwDHlN/kl/xIxH5sk75FQgUQsrOXuM1LwiQPFeCg9IPZVruScPqhK4/j
eYqwNaeA0ihMwiQfFSGtaOKPzk9JuO4zymkOUQTXvoLPz7WTMclLRXi9ZzP3
oWMyHnB8dMBcqAhvJaUWfglLxiQ/FUHKfsmIWXEy5lW4r4rgKUG62zJ2cXMy
JnmqBBNnrjbZp5SC1xp9NnkVogTdFvkNifNSMMlXJfhRXFIl6ZWCo2N3jhoL
lSDJbOH65pgUTPJWCZ7Y92mYXUrBFT9HhPt4E2BqlaX90MsUTPJ3AjTpN5s4
96XgLxtiL9aFTIAd/L+eWWmlYpLHEyBK59XC2gWpWP2exmFd4QTQyp5iNeae
ikk+T4DMoK4j7XtS8dKZ2e7becpQX1mVSaWmYpLXyhBZIv9Z4VIq3n1i5syq
EGWwW+wY41Kbikl+K8N/JhHxh1pTca44/UCEytCsQNXGDaZikufKsHojtyWB
JcDCrfaN3jwVSHtu+GeciQCTfFcB6WfWlgmWAiwhFJaUhqjAooazj087CTDJ
exUQn+kpvOstwLOtvP6VFapA6jZhj9weASb5rwIHby7I2B0twOYvey8VcFQh
VBopqJ0QYNIHqrD71SvLL+cF+IGs1ak1SBVubWdJDZYJMOkHVcjKmNjvUiPA
XpYRR0b5qvCxzf/g6AsBJn2hCh3Hr1wfaRbg/oDanecFquC7yaNwbYcAk/5Q
hXj2Y3WtfgFOylXxcMKq8LfJk3AbSQqTPlEFn3y2Q+MECk9tWGM/IFKFN+se
HO/QpDDpF1VwTjNbv9+Iwlg53SKLw4KhEUfXmGkUJn3DgitLrnINLCjsZtuq
74BYcDTOQtx2EYVJ/7DgTgK2HrChcNfeqQo9fBY8al/yfOlyCpM+YoHxCir2
j1UUji6gH6iABfFhDio33ChM+okFZb519e0eFDZoufphCWZBe9ss82pvCpO+
YkHUDx9rBz6Fy9SHHnaKWHCvUHIgYjuFSX+xQEo5eFbgLgqvWL64/DhHDVok
OJTWPgqTPlODXYc7coIPUfhzSHQWIDV4U8m9fTaMwqTf1ODl+3OT/42kcDD9
PEV8NbARFLXNjaEw6Ts1UGd5ihUdpbD6V/b+FIEaoEJpu+8JFCb9pwYnm43+
kUyhcKHuOp9FWA2kRjZLtgkoTPpQDSa5liRkHKew3aozKz+J1ODJX7N9TdMo
TPpRDX5K/lmXkk7hd1FfFsZz2PDaJfjDywz6XuN9yYbom9TV72coHHTd1Hgu
YsMfw/4LOrPoe433JxtUzDqWPcyh79UVyGrms8GU+yMv9hx9r/E+ZUNQ3DxZ
swsUzpl0bThawIZNBWaDZXkUJv3Khv0djTImF+l7uY+1/YHZcP/apdOhBfS9
xvuWDQ8uOOjeKaTvFbfk5VsRG6q0XZ90FdH3Gu9fNig7LOiUv0xhv9tHKw9z
OPD+emsuq5i+13gfc+Dpr4MqciX0vei2nY44sLxIb24nbdLPHLhvEaxRc4XC
zDmEfA4YLRNkxl+lMOlrDjR4216xL6XwrI2eYcECDqRu6jTuo036mwOeN9jV
J8voe6Xm+BljDrh4NNmbl1O/+5wDL9RK/qmkvflBu+tTEQfYVSWPFldQv/ud
A4F+Szk3aQ8M/2Gzj6MOa+emvJpxjfrd9+rgvfHH6eO0k8z3zjBC6rCCv+3H
AG3S/+pwOGKi05rr9L18b3Hr+Oog6XzFNJ822QPqIG2R19tPuypNUmqXQB38
jV6r29ygfu8DdchdXfxfFG33p8u6dLA63C+79LKaNtkL6jDR98SkMdrdkkkN
1SJ1CEWvps+5Sf3eD+rgdBXP+5t29PzXNds4GqDeL4qnaJM9oQHDF30Cqmjr
b9Mt1kAaEG4irveVNtkXGpAfnPRY6RZ9r7Ob0zFfA5o8DCrMaJO9oQHaXWYq
jrQdX1+I/kegARV328X9aJP9oQHrJDfcjKL9RYH+AWINmPL15N8ZtMke0YCy
i328UtohaI7ndZEGpI7NNKmjTfaJBqw2TQh7T1s96OAyb44mCL9z1nTRJntF
E2xssm+P0S68cHu2EtKElm6NFuVK6vd+0YRG/22PdGkveS9rWMrXhOTM1jQe
bbJnNIEtrbx5Du1GlqOip0AT6jmjc4A22Tea8EDFmbecdtBSQa8M1gRje+cV
q2mTvaMJP3plStbTVjrY0HJJpAlvilf4etMm+0cTqlK/7d1KO/uS4WN3Dhcy
ePk/A2iTPcSF+bPXfN5D2/KTb4U44sKAY7PbIdpkH3Fh8dG/14TTfsktzM7n
c6FVeXlbFG2yl7jw7e4MjVjaW1f8TFgt4MJUE1Z7PG2yn7iga+O6NZm2xOEF
B4YrudDS+Pi0gDbZU1xw/nk79jjttLLQLbkiLuB9Y3PTaJN9xYX0oObz6bQt
/qtxcuRowaLDK1szaJO9pQVSt962n6Fda6Bk2WetBfMmFtRk0Sb7SwuuBGTu
yaHt5eJscoavBaIEK/FztMke04LkkPv/nGfuFXNCbZlAC/w/L7x8gTbZZ1pQ
b+7WkMfc61bTyPdK+vu8skT5tMle04LLO7d9uEib92OyKE2kBRUH3lQV0Cb7
TQu+Hn4dV8jcy9hPaMvRhmmy5kuLaJM9pw1WNkc7GbuvL8Yd1tpwfs6W6Eu0
yb7Thvp9+mqXmXsl0j8Yvjb4vuhPZEz2njZYZGpLFNM+Um11zFqgDR8VkvmM
yf7ThhFd5/uMDQciwtsqtaHqtLVuCW2yB7Uh9tUkPuPyGXX+SSLavFtFjMk+
1AazE6XfGK/crOq+gKMD5Zp5xldok72oA5PeTlnHuO2Yq22rtQ547SyMYUz2
ow68ay8tYRz8MN3sKF8HBqry3zAme1IHNt7/NshYU+yj1myBDniO1mtdpU32
pQ6ou16fw7hwNk/6faUORHg1OTIme1MHPgwe2cJ4CX9Hd5RIB5Y3dO9nTPan
DogMVscxbjpd+s6MowshL5rTGZM9qgu2q6svMg56MXSv3loXpB/wrjEm+1QX
zA/NqWGsJGtTEsbXhdQF8s8Yk72qC/tP3n3LOIf+ufAEuvDcMayVMdmvulDP
d29nbBnwJOZFpS40U5u/MyZ7VhdKV13pYyzM4QQdFOmC2CSPEcZk3+qCQU2A
RClzr7frNk7m6EHD6hEZxmTv6oFtoKoiY0nls8sfW+uB5vYyZcZk/+pBz8ZB
FuOTNm1z9vD14JT9Fw5jsof1gJoeocnYgq4PA4EeeJq81WJM9rEebDjapcP4
4cVdSg8q9eDZf4/0GJO9rAffLPYaMN784VpfgEgPFpf9NGRM9jP9/Yv+nMh4
kEMfmKMPW1T3TGJM9rQ+cFmRkxknLVv65I61PkwoDZrCmOxrfTjJdTBmPC0k
7pofXx/UZRRMGJO9TX9+9Mq479BzkiPQhwxrh6mMyf7WB9O65+N2b+Mm3arU
B69ty3iMyR7Xh5zqK+Pu1tl40FekD8OgNo0x2ef6EG7qO+5op1xfFY4BuBVd
HjfZ6wZg/+THuA2i/ltVYW0AQ3tnTGdM9rsBfA72GnfFNXMrL74BfDyVOG6y
5w2A2l8x7pWd9EAVGEBYQeO4yb43gO/Xhsf9P6ow3o0=
         "]]}, {}}}, {}}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
      FormBox["t", TraditionalForm], 
      FormBox["C", TraditionalForm]}, AxesOrigin -> {0, 0.}, AxesStyle -> 
    Thickness[0.003], ImageSize -> Large, LabelStyle -> Larger, Method -> {}, 
    PlotRange -> All, PlotRangeClipping -> True, 
    PlotRangePadding -> {{0.158308, 0.158308}, {0.00277118, 0.00277118}}],
   TagBox[
    GridBox[{{
       TemplateBox[{
         SuperscriptBox[
         "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(d\\)]\\)\"", "\"1\""]}, 
        "PointLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"1", ",", "0", ",", "0"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}, {
       TemplateBox[{
         SuperscriptBox[
         "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(u\\)]\\)\"", "\"1\""]}, 
        "PointLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "0", ",", "1"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}}, AutoDelete -> False, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Print",
 CellChangeTimes->{
  3.575429060447073*^9, 3.57543107071251*^9, 3.575431162228614*^9, 
   3.575431207960642*^9, 3.5791586059567137`*^9, 3.579158693808526*^9, 
   3.57915873727352*^9, 3.5791587720126867`*^9, 3.579159131484172*^9, {
   3.5791591832235866`*^9, 3.579159206849784*^9}, {3.579159287820422*^9, 
   3.579159307424012*^9}, 3.580894581122926*^9, 3.5808947684279594`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"gas = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\"\\n\"\>", "\[InvisibleSpace]", "\<\"gap = \"\>", 
   "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\"\\n\"\>"}],
  SequenceForm["gas = ", 1, "\n", "gap = ", 9, "\n"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.575429060447073*^9, 3.57543107071251*^9, 3.575431162228614*^9, 
   3.575431207960642*^9, 3.5791586059567137`*^9, 3.579158693808526*^9, 
   3.57915873727352*^9, 3.5791587720126867`*^9, 3.579159131484172*^9, {
   3.5791591832235866`*^9, 3.579159206849784*^9}, {3.579159287820422*^9, 
   3.579159307424012*^9}, 3.580894581122926*^9, 3.58089477130354*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKft/yYpWLH1r7CH8W/bPSo8oSnuU
75df/sJD7/9je/53527linfth8i/sr85PcfmRtL0/S7dOc9/r/xgP71/yZL2
ha1Q9Z/tf3p4VUlE1e7/eShlVULId3tGfeOcKV+zoeb/ss9P8vBTyyu1X/cr
Jvfov7/27BWXDqWKttlDzGNwmKa2dMFt7yp7w5laElNDmBxmcX302GPTaw8x
n9nh6Zu5F8NUJ9rzbF1WeXwlq8MmXeZzQZvm2EPsY3d4OnP64XfW0+yfXVC6
/fMfh0NSu+HL90snQO3ncmi1PzzbtKLe/uCbeTY6ITwOgb+cTlT+r4e6h9dB
ZursFUt3utrP4pCeF7eS38Ho2TrVJ815UPcJOEwu+m5pF1Wz33rS6XqPekGH
NOGEiH813fsh7hVyYLZflbhfvW2/xoLODQ81hR3YbrgvX1fTBg0fYQeH21nX
JO+37xdd5/6w6oqIw+VFdidlzSbuh/hH1CFAYkqmyc6O/Ux7WIVE6sUcjKwU
OH+XTYKGp7iD5L/LvCIV0/d/OHnYaa2mhIPoqUPXr++ash/iXwkH+d3cU0Qi
Juy/e72x2O2KpEPSzTOKK1snQeNPyiH7irPJruYZ+089tV9yv07aoV7Me2KN
6oL9kPCQcai1N43b5Tln/47Pf69UaMo6JIrdsjzLNHc/JHxkHdYa1K5XtJi3
fykj0IFX5Bwe6Kd5h7ku2A8JL3mHlYsqpm71Xbh/NL2Npjd6pjcANqdX5A==

        "], {{
          RGBColor[0, 0, 1], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKXuF96HawnUz90P4t+y1VtUt/fyw
015++QsPvf+P7UNb2ZJunploD5F/ZR/NeVe1MGyKvUt3zvPfKz/YG8Z2XJVP
XABV/9le5b3MqQDRyfY/D6WsSgj5bh/tkGFbM3MGVP8v+wtcPJF3X820X/cr
Jvfov7/2u53kdZKdp0PNY3BwyHl5McR/mr3hTC2JqSFMDnMOlERtd1wKNZ/Z
IXy90mLmSQvsebYuqzy+ktWB1bSG+/Wx2VD72B2yWuqWxW2fYf/sgtLtn/84
HD6Hn4iRDOmG2s/lIPZdfibf3Dz7g2/m2eiE8Dj0CMjlymxMg7qH16Hli4il
y52a/bM4pOfFreR3uJ9TnFx1KAnqPgGH+6IH/4dtmrzfetLpeo96QYeMyO/9
rS8U9kPcK+Tg4M/M5jm/bb/Ggs4NDzWFHVjzPRYzqVfvh7hf2KFFt+z3GqPJ
+0XXuT+suiLikJijeMKRs3k/xD+iDmsX2Zt8fpJlz7SHVUikXszB7d3LV31H
2/ZD/Cfu8GzCFaeTT6bs/3DysNNaTQmH9dOsjQ8WzNsP8a+Eg09+vZ6UUd3+
u9cbi92uSDosCNz1Rd9zKjR+pRx6RE4dun591v5TT+2X3K+Tdmiou7+/snDS
fkh4yDh8e9f/fdXUmft3fP57pUJT1oGt5drh6Z2T9kPCR9aBSch3QYfrnP1L
GYEOvCLnUHXkxc7WdUug4SXvIFs8b6P+zRn7R9PbaHqjZ3oDABL/V9g=
        "], {{
          RGBColor[1, 0, 0], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[0, 0, 1], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJwt1nk4lGsfwHH7kiXLYMww5KRMKYlwEvePSpYT6kxSSUiLpSI6bRpS9m0w
lplRnFKZTurorWjz0yZJG9NyQotE06loL8t4530ff811X88881xz3c/9+34m
RWxZuk5JQUFhpqKCwv8+f16NPB7G+U7uP1VI09bcQjqevdAqFg+RJz9021eO
7iFK3pt6emVDhF54+ubW1clkdt3PBifOMLF0X3bhfEgKiWCkF2SKh8kLXufp
Uo29pHCfwfqnsmHi3VZf53J6L7ny7uA8W84I2e+z0z1zRSoZWDbdkCseISkK
AZqbZanEEuul92QjxEVp3WB71T4SaLOgaRJnlFj2e6hWwX7CLbxfmiAeJZnb
rYoau/eTk0Mhm27IRonLgyUW9B1ppHutdL4JR0Z++CbtKJ2YTrTubGNEiWWk
mjNc90t1OnFzUvp4QSYjlkX0mcfnZJDYyvyb2pwxErjZ6xDtegYRajAPhorH
SGbkb2b+AZmkNf5Y4t+yMXKCrFP3fJxJkt4LrBWnKcBG3mL7rlVZxMjqhd5x
jgLkHoR7Gt1ZpDZoysjSZPl1857UMyuzyYKc2P5hsQJIPhisaZNkky483V4t
UYB5XqfeufnlkIQvPy4vHlMAm1RHu++Xc4gWm4i/sRVBYrpY3GebSw6vTuNX
chQhUdkjfLgsl7gW3U72TlaEE2PeryeP5ZL2Zv2Yj2L5mlwL+D0ij0QPLw8S
ShSht3eR3/YreURp1kGP+WOKQHslMk41yyfCyF7bd2wlqHiSkrkuIZ/YC6bR
SzhKMDkpzJDWnE9u3YlTdk9WArpfe0sKrYCEK9V/6BMrQe+soZDK0ALy02n0
nwKJEsS+a2RHVhcQXsz8Gy5j8utqj+2vvy4gNlVZf79kK8PQwYeFK/V5BCX3
RNkcZWivUTtZOoNHlmsaZzgkK8MsZviXwkU8MugWsrVLrAxHV29Z6L2GRzK2
HlqdJlGGmp5dXWcTecTi2BvvmWPKoFGTE/g4g0fOdc50fMxWgS8XA0rE5Tyy
WG+bRQpHBczi3g6zj/FI34KLE9jJKhDx4bhD0H94hLtT8dsDsQq0vBX72l7m
EaOTi17ukqiAk4v/yePXeaS2J6/tlzEV8NdtmH7/Fo8sMJHUt7FV4fQTg0FR
G490+TEOb+OoQkvcnUydOzySmBKWz0pWhcjahleTb/OI9tmjO2+KVeHEPO2A
nmYeOSx9FxknkV9vXrLTq4lHXFkOgaZjqvB3qFP80noe6Vi60/UqWw1WrvQ8
on6CR2IycEoMRw2uVm5/teEgjyhdUjWgJavBo/JHwdvyeUQ46Dd6SawGI59v
8WYn8chs66I36yRqYBmzM/HQBh5pXfGkQ3dMDWIfKPu2BPJIeD4L69nq4F5X
9Z9jzjxCnWd1kLWJTy4w4xHe9+MlmsnqkHTJ1HrRqHy/bD+mnBbL1x/8LIou
F5CmMOfYVRJ1eNOnGpK4s4AEl+xZrjKmDvcfW5b/mFVABm9d86xla0B1cPjc
ab35JEOmOTOIowEVq3YFGhXnk///Xa4GNHj15TS75ZP6DaUqNWINeLe8zN2v
N48EVHQNBEo04EVWyvK69DzSd9+q86dMA0Zcf4SqW+cRrmpU8yG2Jth++Lo1
BHOJ8dxTdX4cTbCJtZ3ftCyXnNz8teILVxP49xV15r/JIQsOu2YeEGuCSsf6
sq9/5JDux3sTvCSa8KY7f6ZUMYds024JHZDJ70/MrrTLyiZaHrq+5ewJoP3H
DYdO7WxyZBtnjgdnAtCfRZ+Q5WYR1+NCy7fcCTBYcsqtVjNrfP5NgAZNteyh
1EwSYzj1u6tkAsDUeQeGfmSMz8MJoLE7rf9KTAapSPrPnTy2FlyflOCyrjN9
fD5qQaRP5/mfi9JJ62tS/ZyrBU2yurf8urTxeakFSRoPBb/R08hP/7Zd9hIt
cOG1vXBK2j8+P7UgLCSVFd29j7AbgpfsY2sDrP74ccR13/g81YZE/3uOauWp
ZMWk11MfcrWBPmP2t4qPe8fnqzZcAodtT7z3kozseNkUiTY0xBcy7x9IGZ+3
2rDDRzzo9DKZNHwelexg64BNRX9idSp3fP7qgPcjWRDdcg/pC8n+q5WrAym0
as7V87vH57EO1KgW+rUH7CJGzfIxI9EB+ic1ux09O8bnsw5UpWwYfRW/nXjZ
HQ7ezNaFuMC+swtl28bnta58f4P872Qkkm3ldnZNXF3gZRmLj+smjM9vXaj4
wsrRKY4nRxTlB0SiC1UDDkXWRnHj81z+/SRu0IJpm4gk2rtrLXsiVH06qr9u
SvT4fJ8IgxH1DloWG4iSRHL6LHciNBz6rMCnRY7P+4nQNMXWIEQ9nDi6hWep
SyZCoFVGOndg1fj8nwhhvu4L7NuWEfuOb6dO0PTAspG+Q9MvYLwHelA1eL87
6IcnaVF3Ey0jeqBQylQ7lT5tvA/ydU+5XeyzKRg+b1+6LEoPmu6KplsbeCLV
Cz0I67shPRjrjz/ibsUf4+sB2C260BWxDKl+yO+vTM40yl+FvCMTVwei/PlN
8R1/dYYh1RM9sKn92qY4sBZtni7z/inVg8wax9WNChuQ6oseDDZ3HOHrRSPq
VjgcoumDjcoc719Zm5DqjT7QV5xxrqPF4fL5PSw/og+9XjffvSqPR6o/+vCi
Z2lcITMBB7bbTPgSpQ+cpnUeZRWJSPVIH87c+3ymg/kHZpyQH1C+PoR1rv1p
LdiOVJ/0QcFJYrqZthMtXp55sRDl97cZK+bl7UKqV/J1X2RSpEoSnjMavv1B
qg/eI61uj3fsQapf+uDIWvys5S0XF/t61JfRDKDao2dAd0YKUj0zgAvbXR+v
fpWCr7kZh4AYQMMKxyULyvci1TcDUNGfo3DOLxX3yI+nNMoAXM7GjR4dTUWq
dwYw8t7mH62T+9DojeHOIr4BWD26L/wnZD9S/TOAxjMTr6hOSMNas5WRrmgA
rdOrPdLPpiHVQwPITLXJWrImHRcsqQrolRqA6GLDrlD1DKT6aAClM3Zvqa7N
wM60vrl5NEPoXqXtxFyaiVQvDWH/w7v6F79kYuIF2ylOxBCO9VpcSCrJQqqf
hvD5efyKFY7ZqDWwVf95lCGIvvyW6/sgG6meGsK3+c5hvrE5WP3L+ZEMviHo
zklb+rtqLlJ9NYTwboOAsIpcdA0e65+FhnBwY//JWPs8pHprCGVR15wSr+dh
e+7Cjn+khjBdUWSUsCwfqf4awt3WkZ51vfkYcyWnMZVGgzHu+gM+8QVI9ZgG
bPfMGuZIASrJazud0CDh4sXXsZ48pPpMg7UzokyupPHwf9shiaJBQ3R0rWYL
D6le0yB85BTDS7MQZ68JTdnDp4HPxqGxbT6FSPWbBntuPpgmyCzEW8XVMVOQ
BssVdvBPNRci1XP57zEfhZ1XLsKIlrdB96Q0eDRtXfc5UoRU32kwb7ZhSs2u
Ivw5MstzB80IZLmT+/LPFCHVeyOI/dWgI/p9EfLst8+YRIxgWvI6OzfrYqT6
bwSLQgrV1UOK0Wb9ZXprlBF4WLdm3yosRsoDRnD0SqdmenMxNgmVVRL4RrDv
neyr21AxUj6QP6+79vknWz4G3/MZYKKR/Pzs2HY0lI+UF4wgK/Bp6soCPg4q
855elxrBN3WdAT3kI+UHI1jCfnnx9ns+Zrg8urGJZgxTNfkqecwSpDxhDAl9
NSNB3iXI2mRWZ0yMIffItQ/TE0uQ8oUxLL6U5qpbWYLn/oyowChjiBBtCla4
VYKUN4zhYnfDXZVPJej/qCZjI98Y7u3zmctilCLlD2OI2pPvHeBRin0T5C8g
GsOeK1vqhRtKkfKIMbjPcuco55Uil8wJvSA1hvYdx4Zy6kqR8okxRLucLHZ+
WIpGibt91tJM4GzaUZrmj1KkvGICoXRnrjKjDGtrrjhqExP44rKmk+1ahpRf
TEB6aC8kryrDhd3qlmejTOAMN7FVbXcZUp4xgaNlpQeuCcqwS99fK5RvAtvf
S3sb6suQ8o0JyBodHkglZZjoxf+mhiYQbGNVvuJjGVLeMYHBmO0JWjrlqL37
6ctTUhOYNjy3SsmmHCn/mEB04OBqT89yPHzK8k4wjQ5/iTve31lVjpSH6GD3
t1lRTWI5zutd36BI6GBlsijvYW45Uj6iw0GX8EnB1eXYQa89fDyKDmrnwgoc
LpYj5SU6ENYe45gH5Ri9+HP+73w6WAp5nxX7y5HyEx3oB7hhw8PlqJT6666R
RjoollYVr9QTIOUpOnwRuKDVZAEKzyWvOyKlw4jCW73lzgKkfEWHo2+d64Z8
BOjw741Af5opZBzUvKYXIkDKW6bgctFxbcUmAd6y0J733d0UtkzWqaniCpDy
lykkVw5VWRYIMJyzdGpVlCk816IFWVQKkPKYKUyc3HSz8qQAf2aWG/jwTeFu
3aoP1ZcFSPnMFGItXp+3bxMg7/Kz0Y+NpnDKv1bf56kAKa+ZwpsKHcn7fgGy
P02WCqWm8NeQ1SOrrwKk/GYK50byXr1VFGLTlBjJfBoDOludG711hUh5jgHX
7zNZhCHE4FV1+M6dAUo047r71kKkfMeAl/rnGAr2QhwskL8wUQxYoG785Z6r
ECnvMcBw/7nbnl5CTL/uVurOZ0Dy9FDrVYFCpPzHgKG9ozuZK4Vo+XPf3v5G
BiSKS53T1wqR8iADfN/ZXDkQK8T6Ga2xPCkDGN8rN0duEyLlQwYI/mzO7doj
xIAIveBfaUzgTnFbrZEuRMqLTKg+vtX4bZ4Q+0uD5ve4MyHh85+v9pUIkfIj
EwZtH/Q+rhDintsVM3OimHClUjLzzWEhUp5kwjNnzu1zx4VoovDK1JHPhMZL
HQ0L64RI+ZIJsysuvy2tF2KtI1u1u5EJYew4nxOXhUh5kwk37RefzrgmxIVR
WwbTpEzY2Xr7+7RbQqT8yQRPl9yXZXeF+OzA2c6ZNDN4+nCT7f0OIVIeNYO2
zqPZD58IMbF9uPmxuxkYf+g+LO4WIuVTM1jOWWjk3yNEbXXP0ylRZlBxpT7+
ep8QKa+awYXCRx66/wqxWv66sPlmkB7BVpkxIETKr2bwY8B9htVnIc6Lu5vZ
3mgGXYx7Uwe+CZHyrBksUXrGKRkSoqSalrhbagbapi+0jGXy/fq/b81AavFc
uFVRhDH/rFwzmWYOjMFKrxMqIqS8aw4tYy2+19VFqKz7p+8dd3PoytV8enGC
CCn/mgNtpQeLryNCgWf/nD+izGHvvzUu/noipDxsDq/thjz+NRChgzwfFnxz
2Jgm8I01EiHlY3PI1sCV7SYivP1XgnZLozlomVdtZTFESHnZHAwnCbKXmIkw
4sX573FSczjuurw4liVCys/mYOKi9EecpQiHaPINprEgL2w9LdRKhJSnWTDq
y/JxmixCno/X3avuLMCcS/0/rUVI+ZoFLp5fL4mninAaN/d8TBQLghJv5nux
RUh5mwWLZx41ezBNhFflnKTxWSAK+dPC11aElL9Z8Cko3/f0DBEG99N5lxtZ
YGU4y3eCnQgpj7Og/XvojaWzRDjIXLN7vZQFsxbNWp1rL0LK5yxIYpjX1s8W
YUbgkfUTaRZwoN/G76GDCCmvW4A4W73ltaMILdL+XdLgbgGZdzxPSeeIkPK7
BRRtXJPx0km+X+ft3cKjLGDedsX2O84ipDxvAQUhetqnXEQY8EEOVL4FRBk+
rU37VYSU7y3AoH/O9KVzRfhfmN3Oqg==
         "]]}, {}}, {{}, {
        RGBColor[1, 0, 0], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJwtlnk4lOsbgO07WWbse50yHeWotJH3UVHS0WISpyitpNVySIwtJGIwM59l
0kJpOFGdU1o90nLQQkx7UiqaVLRQ9t/8zjd/zfVe37zfdc2873Pft82GXSs3
K8jJyc2Xl5P7/+fCjO1dQ6Je0h2ayjg8oYBYlb1fPHXsG7lRskDbRLOI/K4b
aZXA/k76fGvHa0wvIpy98v0PRN9Jz5Mnf7D9i8jpjkN3x499Jxtjhu98iysi
L7xMSyLZfaRdY/blt0eLiNb5k3v/FfURquhJ7vi6IuJsOX25yVgfWROg+vmv
10UkNA0nhrL7ybGIwOy4sSJS2Os1clXUT4yO/rkl10xIGv2ftOqM9ZPq7B3Z
752EZKBuU/l69g/idXeTT5y3kNjZf0k4J/pBnuoO2HlvFhI/ftxqpbEfZM7A
2X/8YoQkbVR9qi/7J9HuDmkoPCQk1VsFSqdEP8kPq8pg/SNC0tls+3xg9CeR
XDK8ca1SSAznVp31Yg8Qn7uC2UVXhWRhifOBw6IBUuVx009ULySRWvWBPaMD
xKvK6E1ni5CciGQ7ubEHSWLx+H9XPheS1pevNPNEg2TFpxsTPr4WEoXFOzre
jg6SgoyFS891Csm0swMXZ7KHCH6PrymVCMkG09TsA6IhwnLus7/xQUhykvW3
PBsdIuEnHu7Vlq6vfyx2sWcPkwdP1S8mdwlJz6pfDTiiYZIhmPrrxDdCYo3V
kqbRYbLo54FFfS+EZLndwlob9gj5tvzr2S9iIeHkNAvCRSNkHe8KMb8jJJWD
a3fcGh0hjkEH+iNRSNo2ShYYsUdJXJWNltw5IdG8F2kaIholxxyg88pxIZk3
U+HL5dFR0rDF27QiR0i2H8n6V4s9Rs5TtjuaOEJSqGZWHCgaI3rpZ1omb5Oe
156yiDOjY0TZ5e8d6CMksZ8KfpGfLAcjZd7Z2c5CwrR9pVvOloONuaILh22E
5LTvxOGV8XLQWhjP/ags/b//u49ysFdQ0c95L71PeK6lVCwHZb7lPasbikj4
95/Xfh+TA8lPZmXMqSKiySKifpY8uL0y4X5IKSIlASm8I2x5cN7bblkRJL1v
uXfiF8fLQ1v3N+1a5yLSclsv9ItIHqJenZw7hVFEtg2t9i0Uy0Ne3IaK/g+F
ROG3YrcFY/Iwcns4y7q2kBRuemv/kaUAAWkKLlV5hcSxYLIxn60ATj1DDmWb
C0nDvd2KrvEKkMas0NGeWUiCFKo/d4oU4FjawmPvlArJwMyRp9liBTAwOv7Q
qaWAcEMX3Jo9pgANzN3XFIoLiN3R9DOvWYqQ4rjq0IrgAoLipqKDbEWYZ8MU
TnIsIKvVDdOmx0ufr64MOvgzn/TOWxv2QqQItz6H/Rlfk0/Swo4HpIgVwUnJ
IlcrOV82v4pgdPHlwVke+eTC86kzHrOUwEZjJ1tFLV82z0rQ1KA1xqmnSOfC
KxqseCVQbM28UJZGyeZbCRyal19PdacIs3LR6xixEoRc8Yy3VaBk864EJ/y+
BCdeE5CFRuLquyxlKHjjplMeJZDNvzIo2lcwS34TkIiE9VmW8cpQtkbZOfw9
X8YDZVhwLNHb5giflEg+btotVgbl4fzp/7D5Mj4og/vGgfZp6nzSunKvcx1L
BbpS9vxRepUn44UKLAt4fmncLh5RuKqsz4hXgelNyhNirXkyfqjA2YLDd3ub
88i0X3LfbxarQNtN5veIhDwZT1Rgnzi7c5xDHgnKssRqlirEfb8xWP8iV8YX
VZjzh4Rblp5LuD/K+erxqqDJOKL3t1OujDeqsDHh4cevr3JI7fpZ29eIVeFE
6cX8nRk5Mv6oQndREXeKUw7pbbgx/zRLDZLZ73xmveTKeKQGZS2jm/JSueS/
n8tRA7OpCxZ7TuXK+KQGf4x2KF8vzybLhC96lovVYO5LtxnXf2TJeKUGlvN2
jj++IItwlENuH2epg6Vd3aOwrEMyfqlD8W0Lr/lPMknlzj7hd446XN77NsLK
JlPGM3X4zJJzNQnJIG2PE8M9xOrgbdGd7HrmoIxv6uBRVcss7k8nmm46S/JZ
GrCSrDrn4ZIu450GmJavUlmUeIA4lxdaf+BoQPnhneWnb6XJ+KcBFwxjbdLV
00iowaQfzmINsF15/VHX0lQZDzVgwz6W+ZPsFCKM/fveIZYmjK7NsQtu2S/j
oyYs8TU1PMnYTxrfkdJ2jiYIHqa+OuKbLOOlJkzmHd24MT+JDHjfjXEUa4Lv
vVP+o08TZfzUhONlLf4cs0TCuui3IpmlBbGK9Y961ybIeKoFm2r3zL3tEk/8
bd5NesiRrtW7S29inIyvWqBlP6mzf34sSTu4Z3SiWAuaU11K/rwdI+OtFpzy
LZkcsGQvufhtRBzN0ga1mTf23LgfJeOvNshlUvp1Pn+SzrUHKxo52lBqHeq5
52mEjMfasF6l4uv7deGEedswyVysDZlyDw5A1x4Zn7Vh08HNttm7dhMPhxK/
nSwd6HWa/urRlx0yXusARPdGPlYJJZH5Dg61HB3I11x/y8syWMZvHfDTkVQH
zt5MTshLB0SsA2fcewLmrtog47kOrA/vfjzuQyARb1v8YiNrHCR4dexqd/CX
8X0cyC3l7ZgW60MUxOJz5znjYH238/uKYi8Z78eBdevK6sk+QGbMC0pXFUv3
d0Vvf+A/QcZ/6f7xAQPFa+zQsbW/6i+GLtSOfHkQMMMNaR/oQsIxxr3Nbkux
XnVe0SoifU5cRNeKfZD2gy7ovpvUrsPwxyCX5NTREF3gqjxjBCcEIu0L6brC
b83tL0H4c3fDnjKeLhwN/qp2rHgT0v7QhfyTBeVlHluRe2JcwHLUhXosrq+R
hCDtE+n3W91f3EnbjnbPVi0ekOhCsPnRZeetdyHtF12wnlPs6vhsN6KOcPpx
hh6sf/b4cYBNGNK+0QPxhxjdh5vDcfWCDksvogfcXx4NZ5RFIO0fPfjpZ2AX
3RmJPVF2Gt9D9ODirKq8bNsopH2kB9bM9gv1a6Ix7S/pgPL0IPrn2zjT3L1I
+0kP7kav9Iy9FYNWr/955Y7S9YO5n9717UPaV3rQfIJ9Ztn4OLzAHLrzWaIH
T95oep37nYO0v/Sgc9H+TpXIePx9iVs1xdAHk+jbh0qWJiDtM32oq62LntmW
gO84aceB6MO4isKdc7YnIu03fZAramwXDSRinHQ8JSH6sF3DIywlJQlp3+mD
ZUWTXOO4ZGS+N9iby9OH/Ayvwsj8ZKT9pw8RHM3EVKv9eNr8j03OqA9TlA0n
D5XuR9qH+jBvdKtLi10KLlxxdNlbiT7ErHbkalSkIO1HfRhW0p5a8msqPk/p
nHuIYQD1sTO8i8pTkfalAbz6Ubn666Q0jLhsP3EmMYCZF2Pby0rSkPanAZzL
qym7YnEANXvC9NpDDGCr4rPiKYIDSPvUAB73Fbwc0UrH0vGXhtN4BmBesrTC
Pikdab8aQOjRl2GX+9LR2W+s6zc0gObd3+6UbT2ItG8NIKtpKKLv8UFsyXRv
fSqR7u/19Cn1yEDavwaQ3DM+7PzfGRh6PaMmicGAvjNi+clWmUj7mAHt6674
KqZnooLUtr8SBgw2+b+f/yUTaT8zwO5b0PIPqw/h/49DHMKAVcI6z6Grh5D2
NQM6bv5dFWWdhdPWBSbE8RiA6XWxQUlZSPubARqMtobLHVnYkFcaOhEZEHsk
8F6KWzbSPmdAfbPZs5vF2bih/oNvk4QBLRm7AmMGs5H2OwMOu5TuYU/m4sDw
b/OjGUwQ/lOUIvLlIu17Jlitx/p5SVzkOkZNsSFMuJCZU6p/mou0/5ngVDp6
iPWYi3Zbrhk3hjCB8bVTab9cDtI9wAQJiPLGs3KwtlBRKZzHhCkbK++rr8hB
ug+Y0Hypz2d2dA76NXn2mCETtjYebzxTnIN0LzDhl/6MjoibOdiryH12UyJ9
/4ZGn1RJDtL9wARPa6+Xndq5mDb70a0dDEMIEAV55jvmIt0ThrD7nzUbhexc
tNxhftaQGAJ/n6F835+5SPeFIdTt5Y+U5OfihWMbhBhiCLzKwjkVl3KR7g1D
EIdDkdazXPR+dCotmGcIR3t42o0DuUj3hyE8nTIr4Z1xHnZqSC8gGkLEh77O
9bPykO4RQ2hn7p7juioPOcQp8LLEEL6aVYfFh+Uh3SeG4Nr3lTsxOw+ZEfs8
NzKMQElDje9UkYd0rxjBkk+uSZW38/D0qesztIgR2PV/Csh7nYd0vxjByasT
HDqH8tC9TdX6fIgRdHD8R08xeUj3jBG8CDN+2DaVhy/0vDUDeUbgr3b+Wuoi
HtJ9YwSGliN1J9bxMMKD16+CRlBn/7nHJYqHdO8YwdWQ7cu8s3iote/Z6yqJ
Eei+Gep+XspDun+MQMTf19R1mYclVdb3/BjGMJ7ToRDRzEO6h4yBSO9H0jse
urzdclGeGMMe65lRzEEe0n1kDDmmS25M1eFjq/HpkvIQY2DXmkU22/CR7iXp
c8fwQ8Mz+Ljt929ZPjxjcF9fr3F+ER/pfpK+77W2ZMifjwpJc2KGa4zhR0Wc
TWsoH+meMoa317eWu8TxsfBC/OYTEmPYXqsQNTeLj3RfGUPMSteo+8V8nN59
a7k3wwQWJlLUYCUf6d4ygd9efq6treFjg5WWyw9XE/iQsP6J7X0+0v1lAgvE
Fmjbxscg9spJR0NMwMnec2VdNx/pHjMBc6vWbYqDfBw4kK/vyTMBOaF/W5eq
AOk+M4H4arWYPUwBcq+9HPlSYwJX7eK0jtsKkO41E0jYdWrNPgcBsr5OkBRK
TCBReIE15ixAut9MpPPaN91hsQBrJ4aKFzBMobKsZpo2W4B0z5lCWOu6p4Xr
BOi35ix+dDWFuxrqj55uEyDdd6bwl8mlB3ciBdibLb0wIaZQdM1+d1iCAOne
MwVlzaZlTQcFmHpznsCVZwpysyrU3/IESPefKRy4ts7xXLEArQeSE7tqTKHh
uf4q51MCpHvQFDx8g0cSzgqwekrjdq7EFDYlRZ/ef1mAdB+agkJGfceiGwJc
tkHXbw7DDKq7FjDv3hEg3YtmYD06s1pfLMAuge+CDlczGH67xMnihQDpfjSD
KEjq//hGgHF3hFMzQsxgkcOstcndAqR70gzswLTu9VcBGsm9MZnBM4PVW6dx
1AcFSPelGRzvbns1JEfh6Rks5bYaM7g/XzzjsiqFdG+aQb/YDt11KHQP2dWb
IjGDe8XeeIRBId2fZhBebr6rwZTCl4fPP5/KMIcB31aFm9YU0j1qDsFbbEXc
iRRGtAzdfuxqDkmNDhm/2VNI96k5+NkduVvqSKGW6vxzCSHmMKhRmPF5JoV0
r5pD+bUnr3RcKCyVXhcWzxyGblW0q7hRSPerOcT3Kwseu1Posvv+gZYacxDp
p2klLaGQ7llzuDyc6qG6jEJxKSNin8QcSrfYzA/2oZDuW3PoHXX7eWI1haFP
/1g3gWEBYv2za6+voZDuXQtoLLYOvLKOQkWdY0vuuVqA8b9zOnkbKaT71wJe
nC1/6r2VwoL5XU5/hljAyqszjD9so5DuYQuwV74Su3UnhdOl+rDiWcCY+4q2
f/dQSPexdH/fEk2tSArvVIRr1ddYwLaqJa0zoimke9kCXopXjMzfR+GGV5d+
7JZYQPD25qWzOBTS/WwBtxzOJ+gnUjjIkB4wwxKeN8T5PEymkO5pS/h93qJ9
CakUcj097te5WoLLrpciRjqFdF9bQtSD5szcDAonczIvhYZYQtKkuHuDhyik
e9sSzDZM0PPmUlgnzUkGzxLaMgd/ZuZSSPe3JfQ3zLK9yKPQr8uYe63GEtpX
syY2Cyike9wS3A/PL3yYT2Gv2bp9WySWsHXWVN2GQgrpPreEQNV2ZoVQel7L
T2wZx7CCx3OPOcUWS8/rv163go9Lf+13OUqhVUr3iouuVqA6XPns0zEK6X63
gnLHDxuyS6TndclxXlCIFSx8OkvT9gSFdM9bgWfJ0aUnT1K47LM0UHlW0HG2
W2h+ikK6763gH/uqnSkiCv8HPKecxg==
         "]]}, {}}}, {}}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
      FormBox["t", TraditionalForm], 
      FormBox["C", TraditionalForm]}, AxesOrigin -> {0, 0.}, AxesStyle -> 
    Thickness[0.003], ImageSize -> Large, LabelStyle -> Larger, Method -> {}, 
    PlotRange -> All, PlotRangeClipping -> True, 
    PlotRangePadding -> {{0.158308, 0.158308}, {0.0017913400000000002`, 
     0.0017913400000000002`}}],TagBox[
    GridBox[{{
       TemplateBox[{
         SuperscriptBox[
         "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(d\\)]\\)\"", "\"1\""]}, 
        "PointLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"1", ",", "0", ",", "0"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}, {
       TemplateBox[{
         SuperscriptBox[
         "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(u\\)]\\)\"", "\"1\""]}, 
        "PointLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "0", ",", "1"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}}, AutoDelete -> False, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Print",
 CellChangeTimes->{
  3.575429060447073*^9, 3.57543107071251*^9, 3.575431162228614*^9, 
   3.575431207960642*^9, 3.5791586059567137`*^9, 3.579158693808526*^9, 
   3.57915873727352*^9, 3.5791587720126867`*^9, 3.579159131484172*^9, {
   3.5791591832235866`*^9, 3.579159206849784*^9}, {3.579159287820422*^9, 
   3.579159307424012*^9}, 3.580894581122926*^9, 3.5808947713876133`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"gas = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\"\\n\"\>", "\[InvisibleSpace]", "\<\"gap = \"\>", 
   "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\"\\n\"\>"}],
  SequenceForm["gas = ", 2, "\n", "gap = ", 0, "\n"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.575429060447073*^9, 3.57543107071251*^9, 3.575431162228614*^9, 
   3.575431207960642*^9, 3.5791586059567137`*^9, 3.579158693808526*^9, 
   3.57915873727352*^9, 3.5791587720126867`*^9, 3.579159131484172*^9, {
   3.5791591832235866`*^9, 3.579159206849784*^9}, {3.579159287820422*^9, 
   3.579159307424012*^9}, 3.580894581122926*^9, 3.580894771710905*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKXvnp/Gnta9vtofwb9knLXLkmue0
zl5++QsPvf+P7TtfrW1cK7QBKv/Knp9HoUbj4ip7l+6c579XfrCv4On/qzNt
FVT9Z3sGucCFu3ausP95KGVVQsh3+9cFJVPfrVsM1f/LvrBov3Pggvn2637F
5B7999e+JPbHwZ9XJkLNY3CwuXm2p86kx95wppbE1BAmh9Pfe1wyWLKh5jM7
hG/ordg0O3I/z9ZllcdXsjqULfl1Tt+rYD/EPnaHM9suX+tIsLF/dkHp9s9/
HA6eKfIpkQaN+yH2czkE9OdKFkxr2n/wzTwbnRAehy2TDwZ+etWzH+IeXge+
+SVKB0Mm75/FIT0vbiW/Q/m3qewvNSfth7hPwOHExq88D2dM3W896XS9R72g
w7Irqo8lTvbth7hXyIHz4Kqqn3On7ddY0LnhoaawQ05F1VId5579EPcLOzz/
96rwflbvftF17g+rrog4hAq73GVXaIX6R9Sh/tDNtalGNfuZ9rAKidSLOTyX
/D2pl70a6j9xB+V5b9Lc7Kv2fzh52GmtpoRDQOdrifCYmP0Q/0o4uDkfWxxy
KHn/3euNxW5XJB0qY/cnmOdUQ/0v5dD9oF775kbD/aee2i+5Xyft8GN5SOem
7SnQ8JBxiMi/wnX5e9T+HZ//XqnQlHXYtGe1nAF/JjR8ZB3al4efMjrSuH8p
I9CBV+Qcvk+ZI1ydkQ8NL3mHBoGTE5JfV+4fTW+j6Y2e6Q0AyHZp9g==
        "], {{
          RGBColor[0, 0, 1], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwB2IQTQhcvveAe/LKW/brtiXV37SduV9++QsPvf+P7bPa
QgL3nOraD5F/Ze/qXvST/2X7fpfunOe/V36wfyw1/+S/Si2o+s/2IlMWTa1u
rLT/eShlVULId/s9ZZmHEzMn2EP0/7I/JXrvqdK+ZPt1v2Jyj/77az+jU2lJ
Xnq9PcQ8BoegT69kmDeV2xvO1JKYGsLkEK8qv5t7ignUfGaHCc1Cabf+tdrz
bF1WeXwlq8O5oE1zWi65Q+1jd9iZU3LOv9Bn/7MLSrd//uNwiJ+5/ZVVSDPU
/VwOOjvkPxxgmLT/4Jt5NjohPA7NosujuDdP2A9xD69DYNM/p36J3v2zOKTn
xa3kd9jX7t1nvXQy1L8CDrozkyvDbSfst550ut6jXtBh9bSSKc03p+yHuFfI
Id5x1sYMq+79Ggs6NzzUFHbIKC1qe9TXDnW/sIPfVdtNO7Pq9ouuc39YdUXE
YY+CkunbpKr9EP+IOuRlmqq829iyn2kPq5BIvZjDoX1zXVrqE/dD/Cfu8He3
XfG15Tn7P5w87LRWU8KBm6vZqFctHOpfCQeriQmrZm412X/3emOx2xVJB56T
J4+sbaqA+l/KAew868r9p57aL7lfJ+0wj6dvUvhzC3tIeMg4ZFove3dKz2P/
js9/r1Royjo4frYs3x1XBQ0fWYeSV6fSK+Vq9i9lBDrwipxDc55+Zs+1Rmh4
yTtM/PzP3m9Gw34uyUanMwu32GeszSiec3vJfhFGzW1bGW7A+RD3nLL/0TFD
yPPLrv2j6W80/VEz/QEAswxrKg==
        "], {{
          RGBColor[1, 0, 0], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 2], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 78], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           79]}, {}}], {}}, {{}, {
        RGBColor[0, 0, 1], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJwt1nlcTPsfx/Fp3/epqammutkmiRQuqfOhdLNvg4gSialQKlJM0+kyUVqH
FiEtGAmhhR99w7VUEjW4l7hlSUMqyy2R6XfOfOevHs9H9ejRnJnP++WwYfuy
TaoMBsNFhcGgvw7dCjm7njdIdH1k5Ic8LiHaXnXo5Uh+ED8OcFCx9XFC1W/r
67fyH8Twm3cNAQ7HiMmVQ7VTeT+JnQsmXvUcW0hsYO/PSJH8JAJtxw4cmXCU
yEo2DX0u/0nc0i6suOxeQNzsOT7TmTdMiK8Jz7+cmU/0rRhvJpAME9WSifPX
+uYR9qhG1iIfJkZlJ3jGLM0llozzqXfg/SI453MObQ48QgiyHh2JlvwiTLej
hNith4nzP9ZuvSP/Rdx1/xLxXCAmXm6UebN4cuLrCvfnLdk5hF5zLJsvkROB
N17MTpNkE55TVT9fk8uJpohUB+/bWUTEifR7+rwRYtrm3jejOjKJAm3r44GS
ESL/b7t3gYxMojHqdMxF+QhRdDToyVS/dGLPp/zRKk4MuPJhg59abhph/luH
8VkeAw6GJqwJ/3SQqFg5ZnhZIgO6SsocK+cfIHxSI97/lDBgIL1fYnxJRLSj
S62lUgZsaWB9Rfb7iehv328sHGFAcfHv7L7cPwk9LiEZ4KpAdm8o/z4rmShZ
t098gqcC+1++3RlZlER4ZDcl+iWqwJbpaI7mZCHRetck/LNEBYaZNm2++XuJ
sJ+rVhZIVcB9nuua2o54QnXS8VneIyrwemDqrsQZcURByFvnHq4qRJIv8i6e
iiVc850sD/NUofHLgZMrR0cTDc2Ral6JqiC+JfGNro4kglVrersk1M8Hje+S
X44ghqb++idDqgrreTn+z+y2EJnh3nd+H1GFi6qHv8LFjcS4ogMXO7lqAGVu
0382BBJI2nL0IE8NulNy7iclrCRW6ViI3BLVYP3W5TG3uxcQ/Z5rd7RL1MB+
2gLxtJYZhGhH8bp9UjVgJJs/a3mjjexOd/u5jFA/z7lUEfcfgapfuLg/46pD
B9/+D0bHQrTQONZOyFOHuM21+mOKVqAun//pchPV4fsXh0xVo7VIsFtl4LFE
HU4FTe38yAlG5uf/6IyXqoOU87Dhh0UIqnh96IHjiDpESqaMWtsfinxY0poH
XA346/03we1yPmqfzy6J5WnA7HZ7G9ncCBQjXJ/OSdQA1Z1VXgeatiH9qlO7
70k0QGJohyrzIlGJrCckUqoBmxLTjG3ropAHx22J1YgG/N7VWLfl6Q7Utmy3
xy2uJkiemFYOdkajcBEaE87TBJ2KjbMndMYg1esapsxETdAf1z0cIY1FBf3z
f12XaIL9c+Zq9vWdaPLo7O5NUk14u0AkzMvbhRpX/91mOKIJccOnmfPC4lBw
OgfVcLVAa5LBUKbrboQ/z1qw7GKew8Pe3Shz8OxhnUQt0DnlGxJcHI/GOX8W
XpJoASO2aJFkQQKqXz8tIkCqBZkzbstVexOQ/+G9q9RHtGB3eddIw/49qL/h
9uwKrjZc4S9y8mftRSK5jstKnjYYph7ar1G0Fyn+XYE2yD+puI9zEKCazUfU
z0i0YblD+DLmUQFaXNjet0SqDfF6ib3Whomo69FvL4bk2pA9et3n9PhEJNDg
3y3m6kCZar3p/zoSkcWMC5XzeTrg8utdV6y9EJ3f9l/hN4EOXM12dq5aKEQ+
JR4pxyQ6oOs2/6FXnBC9fJYU7SvVATI+ij2lSIhi9e8H9sl1YLDnpfvVO0Kk
N8twXh5XF85tbrb82C1EZbG8KbN4utDstCxfppOEPM4W2H8Q6MKxTJWNreOS
EL5/uuDzcLP85pwkFG42dtBDqgvF213b2tYnIXwPdSGw5Mf43+KTUOGey82H
uHqQ0n5lxt2sJITvox6UN+bY/n06CTW+I0r/FeiBo0v0223XkxC+l3rQcvT0
kaKWJDS06EG8q1QPXJ85Tyc7kxC+n9Tvq41+MvZLEuLW+i9N5upDVGqhoFSF
RPie6kOWhyhA15hEqx3ejX0i0AdhzcezYbYkwvdVH4J13R484ZJIdDBKPkaq
D0712b4BU0iE760+FOekPKJeNVT79Zc0jmsAqUFBq/rmkgjfXwP4dqJK02o5
ibrWHixvFBjA9gj54pwAEuF7bAC14QOf+RtJZH7XgrSRGoDjE03GmTAS4fts
AOaOWbJVUSTynVjiv41rCJISTlLyLhLhe20I7vnb1dz3kig2b+LEeoEhMKxD
OTtIEuH7bQj5QQ2Dc0QkKlOhPiBSQ7iZ9sqtJpVE+J4bQtth6c8HGSSShvm1
b+QawU2Winp6DonwfTeC4aSeLEYuiVSl0ktVAiM4PsWZdCogEb73RvBXrs4i
k2MkcvcMPqAlNYK24P+Mr50gEb7/RjBw8+4hbjGJXNsGLpxjGoOJ/V23kFIS
4T0wBkFusuO2UyS6r+V5dAVhDCcidrvNP0O9Hop9MIYHA/Hf5BISBc9M3i/n
G4NPSX9VWjmJ8F4Yg/Bl54HBcyT6HtkQdVpsDP1NzX6zz5MI74cx3Oldfnj7
BRJllhmtW4KMoep+xb9JF0mE98QYrB792JJQSaJxz1f4DcmMoWIoyDfwEonw
vhjDLs/hjc6XSYQMC92KmSbwjLwsek8Z740J/M1/vDzrColWeb/mzCdMoHLb
vrnjq0iE98cEhN3Tm6op9+0ap/uNbwKjQu9xplSTCO+RCYzu2bf9NGXROeoD
KjaBDLHnI8MaEuF9MgFTw+8zIyjbdV7pmINM4PKOK4X1lPFemYB2t/yWfi2J
qs1/NvXKqL8XvTVqKWW8XyZwP0RtdQblhfNm1eQyTWHihT3W9yjjPTOFPiG5
YIjyO4GoGAhTqFvbuGPMVep5KfbNFMb32esspryX+njK+Kbwujk4MZoy3jtT
SPZe5yGmbN5ttjtbbAo9XhX5lZTx/pmCfVR8bxPlCps1IR6Icv7k/W8o4z00
BeLzpFPfKfssLVr8VmYK6qdWH9K7Rj0vxT6awq/Jkhgbyi/2dc04xDSDJztr
M8ZTxntpBq0+Uw2mU4655jxmKmEGPhNXseZQxvtpBq88ZkoXU9br22HyL98M
+sctDV1NGe+pGaR3FPcEUy51vDosEpvBrgqXZD5lvK9m8Md1J+9Iyh7+I+8n
ITNghPt576SM99YM9nX05yZQbk2b0/aPzAwer9uzXEgZ768ZGFwO2f8n5fCb
qXUkkwnJHtFECmW8x0w4e/1DaiplVWptxxNMGNhbsSudMt5nJtjIggyyKNOP
Q8pnwolh0cocynivmeDwRBJwmPLkoEDhXjET2tOCR+VSxvvNhBvl8TV5lBty
SsPHICYsC9SwLqCM95wJa8r4vKOUN9z/sLJFxoRv5XFbCinjfWdC1bY9Acco
Dw1Pmh3HNIeDz+e4HqeM994czETTP9HOdN01wYEwB5gQkH2CMt5/cxj1fZVj
Ef28Qm9YNvLNgWzKKKaNe8Ac3PJtTU9Sri9QU48Wm4Nf+6to2rgPzKF7UXwD
bf+WuX3WyBy+fdrELKaMe8Ecngf0rKDdr5b5/C+ZOWy65JpBG/eDObx7PO0m
bdHvT+9sZVrArRmve2jjnrCARXuHTEsoc7baVFoQFpA1z8WdNu4LC6ifaLOU
dvXJDYWIbwGTNRaE0ca9YQG1llOFtBc9PSPaIqZ+n+2TQxv3hwUEtrWW0O7S
pd6AyAJGzrhdoo17xAKEgxV1tAXElMBrMgvoni1soI37xAL0fTtbaZvHJMzd
yGTB/NeMF7Rxr7Ag46v2a9oVZ2666xMsKNfjdNPG/cKCRtb6T7TnvNSyr+Kz
YOuXD59p455hgePbp//RbjdZpBcoZkEfc/oQbdw3LLDtdxymHeMrHtBELGDv
OS2njXuHBSWnHzNK6eeV8LzzgowF+YfOq9LG/cMC8qKfOu2SC/bN/kxLuO0i
0aCNe8gS1vU/06Q9821orQphCfKHL7Ro4z6yBJOr17Rpt1lWlJzlWwL/0W4d
2riXLEF3n60u7bCFX9OXiy0h7ZxEYdxPliA64qBHW5WcHj9cR/09TorCuKcs
4dq1fxUuqE7cVCazBLNUJ33auK8sYcvGMIXdPt5ZsohpBVFPixTGvWUFpFeL
wg12+jMHvaxgxp0BhXF/WYF7mKUB7WDesrFFfCto0J6iMO4xK2CvW6jwUEqe
6VyxFazX3qAw7jMruCyOVjjzxqtfn+uswDuOVBj3mhWMtsxQmPtllKxAZgX1
jfkK436zgo5/ihWuHxMu9WayIfnPswrjnmNDCKNSYf+AStTjxYZlCdUK475j
w2Kb/yncn0G9YfhsyFFHCuPeY0PQklsK7//L84iXmA01rDsK4/5jg8b2ewrb
DyUnva9jQ8HmBoVxD7KBa9ykcM2ExohMGRucYh8ojPuQ+v7JZoUXbzD2n860
BqtjDxXGvWgNByNbFH5/ZKX3ay9r6HR4pDDuR2vYV429t6nQJZVvDVpujxXG
PWkNs45isxhvrNzF1hD9BRv3pTX4e7QqXOHO1XhZZw0Qh4170xrY5dhz+Nv7
98ms4cATbNyf1tDzHfvVsaoXLkwb4Fu04eel6FEbGHLBjmn9efeZF/V9b2zc
pzYQxsPW15p9Sci3gbQN2LhXbWDuNuxS6u3CFduAdhw27lcb4AixZ0Y+TGmt
s4HW/di4Z21gfRq2tJQZkyCzgR+Z2LhvbeC+GDv8nzVBo5i20JuLjXvXFlIK
sNUMT85r9rKF84XYuH9tIeY4dv7s91N28m3h4wls3MO2YH8S242aDzuxLXCK
sXEf20Kf0k3l0fr362yhsAQb97ItcEuxN3RcHYyU2cJxpXE/28IvpX8wqQfM
5MCCMmzc0xxIUzpzru/DW14cuKk07msO9CjtJEi7Gs7ngNEpbNzbHHBW+haV
k0wxB3yUxv3NgVVK+7+3zLxRx4HNSuMe50CM0v3WQQmhMg4IlMZ9zgGR0qIl
ZaFGTDtIVxr3uh2Ilbbb93FprZcd5CmN+90OCpWuverqGcy3gxNK4563g2Kl
F/dSgSq2g1Klcd/bQZnS/weVXCQO
         "]]}, {}}, {{}, {
        RGBColor[1, 0, 0], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJxF1ntUzPkfx/Guuk01U3PpMpXLao1LtIvVRp+3IoRSpguRrjRaFF2kmpnv
JMUuwoiSa1lN5JIt9z5hS2xIht1NrlsYQnZTuv++M585v/7qPM4Zx6nvfN+v
54jIdQExejo6Op66Ojrqn7N+/ulNr6Idba4J/2z4czhyOvF2rsvgf6hlxHBG
WnISWshMcpIKO5BFVFduz5lkJE7V7Xyg6EBna2wnubxKQWWvttePGuxAzhtT
ry9jpKLm+XZFScIvaHr0wtH3J2xCjIpfU28pvqDagLz+htlpyN3x+0W2g1/Q
j7pvVp1bnI7isrFznLAT+TyNqbwZlIEK2uf3X1V0IpfcXudwXzG6s+SvhxaD
nWjqu8P7WtwkqPtGdGm4sAv17wo9sJQhRWPGf5aWK7pQ4Du3fY5JUhSyNyPY
YLALFf1gf7zrsRRlD5i4BAm/oqi6RJ8iVwpdWJVnUKKgHX8u5Z/NFHrdMPJJ
98BXtD3kwz1xA4W4P545N1/YjfbG1bcCW4ZmFbnnHFR0o5RSXVmPnwwlMerC
Pg10I8vC0Q1UpgwdTxJOmSnsQcevyeTlp2Xo4bMXZnsUPahiTk7g2gcypDd3
zauWgR7kdvqgpPC9DH13rvviVGEvynxnLxvbL0ORdlt25ih6UVn19FazYZlo
V6bVyqaBXvT58pOQH2lfbzs0fbywD/0T136lgv78p8Bx1mJFH3q+q4K/uU2G
huMLqvsDfWjCk/Rz5xplaNGYWdUjhP0ozcX9zqKzMiTe1ZC3QdGPrqxqvZya
JUOne5atqRnoR/v8r1f5BMjQ0yiVF084gLInNSnfcGXI7G6SnUgxgK4se7h3
00MKzZiq9/nywAA6zw7T/y6HQj8d3nGLIRxEf9cf9fecQqECY/tDYYpBNK/i
U2lLkxTdSTiReHZgEFGqkR+DUqUo/UP+aN2xOtB9mhv7hClFnJEvmKVCHShP
92YleElQWZBzX4BEB07nTPw2IUSMyPdRBzzNQwsDIjJQMy5vLFbqwGb8NuBC
WDra0PH12sJBHTjC26j09k9DZgKk6BToQtswnUNlbptQ0fIs+WGhLkyqvRRb
aJOK3Hf/IZkr0QWZ64SEWx9TUGMtK+6zQhdGFsVda72ajFb3BgcVKHWhrk4W
dTYzCelNOjTTa1AXTPPGPXjplYgKolvGtwn0YPqics6UgfXINX+szV6hHpQq
zSbGnE9At+/G63tI9KD4pm7o+Oh4FKF34eNrhR40y39t2jJyLeqe2v/3TqUe
bOyaEnwjOQ7lxnnVTBvUg9gFKSs21MaiMUe2nn0p0IdvOOZFvVYrEVbeP7BN
qA9HKlInVSyPQsEm3OzvJfrAXNsT+/lEOGqfsWx9s0IfYmfGM9pbQ1H2+mPL
s5T6YJPjG8OQBmnfX/rzzXmrDwz3R5VPXCb/KTAAeFlZ07BnjvZ9NgDpTurR
nq9u6PWsK6YCCW2/jIuSTmvt+20A1d31IwplEzHn9JyXm5T0v99eExXm6InJ
+24AJe0h45VTF+BZPOWFeoEhTH7O+ybCejEm778hxFbkFOz8EowTpeE7HCWG
ED9f5bGzehkm98AQqloM3X65FI6LVG3R8UpDqCwJYuoOi8LkPhjCWpe8uuGz
Y/DDgFT3G4Jh4NPIMU5KXoXJvRgG23oHPPLyRVjvqqEVWzIMKmtWrxh3Og6T
+zEMSr1as1Xn1+DvRu9+G6McBusXxx/dU7oOk3syDEIamN19dfE4YocjviAw
gmlLqhr7fkvA5L4YwTcrH4/2yF+Pc7tK95pIjMBzW0TJlaQNmNwbI2D1ba9M
8knE1eE//BSqNAKzY4bG63lJmNwfIyiXdUReaU7C7bdvepYJjMHcfN7CiIJk
TO6RMRxYcP5qyqIUrPl1xcbwUeefGu5gCib3yRj4DeL5S3/diP0Kmz8tUhpD
8qa5ZRHeqZjcK2N4LHiS4vc8FYsNRbXHBCYw/HcRZ17CJkzulwnYHX8iSe7b
hE+v/VLYITYBduShDl0qDZN7ZgKxfmmlvME0/PRPaoO30gRmiy9sbU1Ox+S+
mcCuV1dfF7xNx2YzLXz2C0yhJigTxQozMLl3pnBU+LZXfDkDu5cWDH8nNoXN
WXxXlr0Yk/tnChMbvGP9k8U4zvrbLnelKTT5JcWurxdjcg9NoeG3D/onHCS4
MP383e0CM0jofvN2xGoJJvfRDO44XUzilEvwnVZU/FxsBmObYnLPf5Fgci/N
ILn+UXWenRR3+9ZvclWaQVFViWrJNCkm99MMuNbvbNyFUiy4GOKfKWDAvvyj
Jf5rpZjcUwYc+uvw6t+2SPGSEa3fPhIzoK1y8GDqQSkm95UB8nL715XlUpy9
LWHAWckA712vPalaKSb3lgEz0vNMP/wlxRf/61duFJhDXnlui/k7KSb31xzO
xmTWdHZL8etl207eEZvDLFVB2yVjCpN7bA7XR+CXsVwKc2q5Mr7SHKYY1Cay
R1GY3Gf688Y51+pdKOw9sShkrcACqg/c5B91ozC51xbwpePqjCNeFE7aP3Fi
tdgC5pnk2Py1gMLkflvAs4/vOgIDKXxcl35BlBagyLq1xnk5hck9twBJW29i
YDSFlavnNkcJLEHRrwj+uJrC5L5bwsCDxzd64ymsp1SWV4gtoZwrrMtOpjC5
95bg+7j1nwNpFJ48I2KrkdISslz268yUUpjcf0vImOsmlmymsOvDzjOn2Ew4
U9M2dUUOhckeMOk9uLf5zc8UrjOacSAQMcG3vnCO007676HZBybUOYW9Y+ym
cMT0zC0DIiaYWuiKKuUUJnvBBNctqsAR+yj8Nf52wgk5E/ZOFz0PyKcw2Q8m
/HuT/8jvAIVzj1suX4SZEKUjKOMfpDDZEyZIOYFbrx2i8JimwLndKiYkbu93
n3qEwmRfmPDM+NmCbUcpjC0Kvz/GZsEpvzP9V4/Rf1/N3tC22e/7oIjCwV6v
HOcjFsj81+ndKaYw2R8WeNvdP6Y4TuFPKWNMO0QsYBh/zVz/K4XJHrHAcf/m
OucTFM4+Rb+gcha8NP0QXUeb7BMLjEY2j1xSQmGnl7+9mI1Z8DQ1sLiJNtkr
FlwRnV7pq6BwJaf3j48qFuzYvLSmgjbZLxZM/vpLH6uUwgt9Zl7Yx7aCF4Kz
46Jpkz2zAjOjiuAy2q3i7GOArECY577mI22yb1awPzLPc8xJCmfQr6dKZAUn
o0vzQ2mTvbOCKG7ZiK20OW+tU3fLraAt9MbGc7TJ/lnB+U9pEx7RLuMvjXbH
VhDc7V7dQZvsoRX0JaQXM0/Rz8v/iF+LygpaPvXNFNAm+2gFhqK/vnjQfpL1
+sftbGs4E7/ZOoA22UtrmLrqSmsk7cTL452nImu4YbD4TAJtsp/WUJCvc0pM
2+zTetZzkTX0+jJY22iTPbWG/qIOcznt4lGX+rLl1mAaoH+3kDbZV2u4/Zty
QzFt95DBN5OwNQivN446SZvsrTWM2Vrcc5Z24y+zH/6tsoa/p+yxqqRN9tca
ykJbZZdpx13/uUrGZsPN9a7hVbTJHrNh+bSSq9dp69FrOw6xYe+p4JLfaZN9
ZsPhxatcb9FWPw6liA1XAn2jb9Mme82GHobBgj9of7ciTJohZ8PorHH/1tMm
+82GxFU/rrhH+/ae4jhnzIbu6wcK7tMme86GGNb90gbakXXvgu6r2GDzPnPv
A9pk39kgOli+opF2d98kz41sDqSzy80fqp+XZu850OMzv0jtXNeUCSMQB0qy
74xS0ib7z4G8Yxa71R6z8prNHREHErLz2tUmPcABzujtMx/Rri7QN9gg54Bl
58MtapM+4EDQPMYNtUPuz/tkjzlwdO3hDrVJL3Dg29c1To/Vz0s/t+l3FQdC
z26fpTbpBw788OfzKLWzpz2uWcPmQv+cLLHapCe40MQat1dtxzX8c1zEhSr7
lSVqk77gwp6IyotqVx6NLMQiLiy7tbVWbdIbXDDf6dGotu/jkuxYORfS00c3
q036gws7z2W2qP3alP4CYi5smy9/rzbpES5E3t76WW0xmhJ2WcUFK8+dnWqT
PuGCfsLtHrU5iWnzotg8+HoweEBt0is8cI8R6v6pfl4l1yczEA9GRz/WV5v0
Cw8q7rYbqj37qdHwChEPQt+dN1Kb9AwPqrMmmKjdzPI1C5PzwHihyFRt0jc8
yHVKMFM70VveOQzzwE64kKE26R0edP9nYK42I63p5RkVD/I+HNSY9A8P8pGD
hdpFZ4bfDWHbQIlDtsakh2zgquVzjae3rLyoi2ygmjHGUm3SRzYwdVe0xg9t
yopKRTawujxPY9JLNnDZpVrj1Qv/27FYbgMxaa80Jv1kA64NAxrrydw29VXZ
wEJXLlNt0lM2UJgi0LigUhJzXEX//8FuGpO+sgG9WG+Nv39fs8iXbQs+o/01
Jr1lCwu7lmh824kxvcvDFtiTIzQm/WULb0eu0jhCGPDtEZEt1A/EaUx6zBZ2
fF2ncXfOfqt5cluQTtugMekzW3j/PEnj3GvP+j9X2QIy3agx6TVb4N5L1Vjw
7zeqApUtmHqkaUz6zRZiROkaVzvHKb3YdnBhWYbGpOfsYMFIscYhoedwm4cd
7L9BTPrODjJnSTRu30l/YUR2UFlGTHrPDh7oSTXe8vuMPA+5HeTPISb9Zwej
JMTDuzOpN1V20H6SmPSgHZg1EF+YcOenXJUdOH4gJn1oB1IDijyvSGaIG9se
5vOISS/aQ6Qz8Zu8IK9XHvaQ8R0x6Ud7mDSdOOOPQpefRfbQ4UVMetIexvoQ
83T+sZ0st4fhfsSkL+2Bt5i4bLLA8GmVPUAQMelNe6gJIZ4tWteepbKH2qXE
pD/tIWwZ8bODFU9c2HwoWk5MepQPxWHEiY29tX968CF+BTHpUz5YhRMzjDzL
pSI+7Naa9CofvmpdTH9dBHI+zI0gJv3Kh2ytp8ffy2ms4sMlrUnP8uGF1spi
dmKaig+DWpO+5QMvkjju76UrvmE7wFitSe86gJvW+hZHfe56OMBsrUn/OoCv
1vmeb6YkixwgSGvSww4QqvX39Hw4yR0gXGvSxw4QpfUfJzcw6qocYKXWpJcd
IFbryBeXuuJVDiDSmvSzA8Rp3cOmHzDbEX7SmvT0kHPned+74eEIa7QmfT3k
seJfLsWJHGGt1qS3h3yDzkm2fMikv4cc8sYm91qVI6zTmvT4kNvtV6StVA2Z
9PmQsxcdX2nJdvq/Sa8P2Snrvf9FjyGTfh/yxUuuMyJEQyY9P2S/j3SgyodM
+n7I/wNSJLE/
         "]]}, {}}}, {}}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
      FormBox["t", TraditionalForm], 
      FormBox["C", TraditionalForm]}, AxesOrigin -> {0, 0.}, AxesStyle -> 
    Thickness[0.003], ImageSize -> Large, LabelStyle -> Larger, Method -> {}, 
    PlotRange -> All, PlotRangeClipping -> True, 
    PlotRangePadding -> {{0.158308, 0.158308}, {0.00199178, 0.00199178}}],
   TagBox[
    GridBox[{{
       TemplateBox[{
         SuperscriptBox[
         "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(d\\)]\\)\"", "\"2\""]}, 
        "PointLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"1", ",", "0", ",", "0"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}, {
       TemplateBox[{
         SuperscriptBox[
         "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(u\\)]\\)\"", "\"2\""]}, 
        "PointLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "0", ",", "1"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}}, AutoDelete -> False, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Print",
 CellChangeTimes->{
  3.575429060447073*^9, 3.57543107071251*^9, 3.575431162228614*^9, 
   3.575431207960642*^9, 3.5791586059567137`*^9, 3.579158693808526*^9, 
   3.57915873727352*^9, 3.5791587720126867`*^9, 3.579159131484172*^9, {
   3.5791591832235866`*^9, 3.579159206849784*^9}, {3.579159287820422*^9, 
   3.579159307424012*^9}, 3.580894581122926*^9, 3.5808947718009825`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"gas = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\"\\n\"\>", "\[InvisibleSpace]", "\<\"gap = \"\>", 
   "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\"\\n\"\>"}],
  SequenceForm["gas = ", 2, "\n", "gap = ", 9, "\n"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.575429060447073*^9, 3.57543107071251*^9, 3.575431162228614*^9, 
   3.575431207960642*^9, 3.5791586059567137`*^9, 3.579158693808526*^9, 
   3.57915873727352*^9, 3.5791587720126867`*^9, 3.579159131484172*^9, {
   3.5791591832235866`*^9, 3.579159206849784*^9}, {3.579159287820422*^9, 
   3.579159307424012*^9}, 3.580894581122926*^9, 3.5808947747956886`*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKft3ZXtNXBtW20P4t+wnHOwKXtva
aS+//IWH3v/H9jlcKWVie5v3Q+Rf2Ts2PTo+Y/e0/S7dOc9/r/xgr7npWkCW
/qT9EPWf7XXtC6aqC7Tt/3koZVVCyHf7F4anjPXba6H6f9kbZ+3zsitL37/u
V0zu0X9/7dsmfP5n75cBNY/B4Uv+9L+7LufaG87UkpgawuQQ6b923y6tAqh7
mB3Sd133rI2ssufZuqzy+EpWh6YVvxmWmDXaQ+xjd1ghrfHBz67X/tkFpds/
/3E4XF5kd1IWKA+xn8vBd1Hch0y/OvuDb+bZ6ITwOERPuakwuSfHHuIeXgeu
PZP9+3Mz98/ikJ4Xt5LfQTf6dXfLthyo+wQcEiabvlKUqt1vPel0vUe9oMNc
rfvGQgsL90PcK+Rw65HU/JP/OvdrLOjc8FBT2OG41tL0qs5GaPgIOyyfxLig
S7p9v+g694dVV0QckrxULp7WaNsP8Y+ow5qJsZmSK9v3M+1hFRKpF3Mw0Fop
fMGlAxqe4g6s+R6LmdS79384edhpraaEQ0niEvGtv1v3Q/wr4cDutKmB807X
/rvXG4vdrkg68F+otdwcOxEa/lIOsSYpNl6qPftPPbVfcr9O2oHnuVRahs3E
/ZDwkHEAe19ywv4dn/9eqdCUdbiUH89+TnIiNL5kHZ7WbPz+qHva/qWMQAde
kXNYdKljZq3cZGh4yTtcdNCZbakydf9oehtNb/RMbwCFslak
        "], {{
          RGBColor[0, 0, 1], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, 
       GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ4u33vAPXnlKftui7kpq0+v3A/h37K/fLfU7Ml8
T3v55S889P4/tj+4+uk5H4Mae4j8K/vXcjdjTM8X2rt05zz/vfKD/Tuu2g09
vLVQ9Z/tnylrvkzMaLX/eShlVULId/tp8WzJLosmQPX/snf5Ie6YrNZov+5X
TO7Rf3/tL8ySr88M7Ieax+CQdTMqXmXLVHvDmVoSU0OYHIxK3iwQuj4Raj6z
A/P5ve3efbPtebYuqzy+ktVB32ytCNPOKVD72B2St/6svzpxsv2zC0q3f/7j
cOCJkct2Y+uE2s/lkKNkLL7Dpsz+4Jt5NjohPA6iPV6vWEwcoe7hdbhVmu+a
1BRlP4tDel7cSn4HhcrnAW2rMvZD3CfgsJh50oZ89cT91pNO13vUCzoYXlRg
9Vds3w9xr5BD9Fmrx78fNe3XWNC54aGmsIN8s+jyKO7m/RD3CztMLuxJ6Q9o
3i+6zv1h1RURh1j/ktgfBzv3Q/wj6tB09OGZ9c8m7GfawyokUi/mcE+upaGG
s3U/xH/iDsycXfLJ77r2fzh52GmtpoTD5OOXPzGHd+6H+FfC4VpRuprEudb9
d683FrtdkXTYsI7rStKHCdD4lXJ4mWyncGHmlP2nntovuV8n7bBng2l05cn+
/ZDwkHHoPZ/y34a3Y/+Oz3+vVGjKOiydx7pwT//k/ZDwkXV4tnYX39UpU/Yv
ZQQ68Iqcw9+DB4rfP5y0HxJe8g4nahwWGGdO3j+a3kbTGz3TGwC6jliI
        "], {{
          RGBColor[1, 0, 0], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 40], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 41], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 42], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 43], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 44], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 45], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 46], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 47], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 48], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 49], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 50], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 51], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 52], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 53], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 54], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 55], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 56], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 57], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 58], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 59], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 60], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 61], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 62], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 63], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 64], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 65], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 66], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 67], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 68], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 69], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 70], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 71], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 72], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 73], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 74], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 75], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 76], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 77], 
          InsetBox[
           StyleBox[
           "\"\[FilledCircle]\"", StripOnInput -> False, FontSize -> 8], 
           78]}, {}}], {}}, {{}, {
        RGBColor[0, 0, 1], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJwtl3lYjOsbgGvaF6lppmkvIQ3ZKkTL+whRRHWmhGhBpylatIiYatKiZb4w
pFSiRHZZokNvKiIc1BAJSdsQ5ejo0Pb7zu89f811X9dc3zdzPd/73Pc3KTDc
cytDRkZmlqyMzL+fP2u3nPXnDaFa7tRKo3924+Z37WqHyn+hCK3koAlVYZix
YntH59gvNDLVcHjpsm3Y6srPm/N5w0iS3YTuPuLjQP1UKr18GCnH3XMedPsd
H0hmBrWODSP7r76RvMdb8N2+IntL3gi65pbh5bs8EPd7zdAWlI+gxOEfiJ3g
h01xpfTp2Ag6Wravuy5kPXa3WFoziTeKQLs37bmnFxYceHYkqnwU9UaJNnva
uuOLv3y33xsbRTnGXbF1ts747WbpEg5vDBUvnf8pRcYWqz2J0eeXjyGZuU5X
FuWqY4f5jG9VY2OoXelwcEHTHLTtuKhBnTeOImJdko4ddkL5ygZFm8rHkfue
K2OMW6tQY+Tp6Mtj4yj46+lJKcG/oT1f8qbKTpcBi0PF3rnbfRDbrF3zLE8G
lHnOs6NCNqIL3uYjngky8Nij1L13VgBamrmtZ7hcBnh/fE21KtmM2nBFU6lE
Bkov2XVHagWhqMF/7riN09/v2Oc7HheM1Lio/AdXFuR76wOtX4egko0p4uM8
WahfNWN50NztyO7go4QVCTQ/zY0bSAxHTfe1Qr+VywLDNpd/+GMEChle650v
kYVuu0+xlbI7EGNO0eIl47JQcczqWqZ+FMrf0mnZx2XAkb55RjUzo9HcvOm6
h3kM8FzJSZKzi0EPn0TIOSYw4Kz753IFp1gUwKj82l3OgOoStG+n0070c/7o
a0rCgPmT4p3V7ONQTuiSe7bjDKj1Hs6NnrULWRTvv/yBKwfOfzdXBuvtRljy
9FgGTw50XrBKikZ2o7UqOmnWCXJwxC5+0dOWeDTg4LujrVwOAu2jfr9+dg9K
23FyY4pEDjq8VoNGzF5kcrp3xaxxOYi9L56RN1+AbryZZdPClYfdorUM3X4B
ctOMMUnkyUPtSf7cNUUJqHvpH6rcBHlwu3O1j2GWiAS7ZH88L5cHvx1VPxgR
iYh9cfmH3RJ5GP22ykLjViK60JH9ePK4PFyaJIlTH01ESzmSysdcBWhwadzR
Y5eE2lbql8TwFODFTA5kxCSh6ER/kXGCAigtOnj9Q3kSUr9etquhXAFa3p/Y
2PYqCZVI+7ZESBTge2d/UghDiOyMrd31xhUgjzPDRmAuRM2eu+xquYqQduip
l9oyIQpNw+ahPEV4kdRfpLRJiBi3FZisBEX4gzFUEhIpRPkDK0dvlyvC1aqg
1pkJQmQ19WDvVokixKxMKliVJkSN6141a4wrwp3m3hn1+4UoQGSMK7lKkBk0
/eqhVCEi51kJJjnNd769V4hyhs4eVklQApXg+g8QLkQWlt8SK8qVIE+zjG++
QYhq/Bds2yBRAg83hbKoxULkc3jvWvlxJXgufxjNNROigYd1The4yrBzxbUq
/mgSShtTmeXNU4YvL9Ijuc1J6P9/V6AMLlvZ2YKSJFT5+xH5M+XKYDTLYzQu
LAmtKWjrd5cog3aTc8R0myTU/czszc8xZcjNW7yibJCelwL//kmuCqSUaR6Q
vZyIdBZdurKSpwLN4cGDnkGJ6GLY3wWDAhU4lhh6oYJDz6vELr2wXAVE5g9+
RKcnoLctSVHOEhVoDY2cpvZKgGLUH2zqH1MBV3838wBjAVJbrOF6lKsKzHv5
bRUb9qJTMbx5i3mq8Cnfss4xZw+yO5tv+kmgCk3n1e4uux2PyP5ThRvJDBW1
9t0oVHvakJ1EFb56zvzRPLwLkX2oCk6/Tvf0TNyFCvZcfZLNVYPu89EGOYZx
iOxHNaiyuJHOMduJGrtQ6XuBGhSV+9xqNI1FZF+qgePXpSVDujHo5+rHu+dK
1OBThW3SF9VoRPanGiiO+Z0b+bEDcW/6eCRz1aEirjE89m0kIvtUHawkLZ/O
V0egdZO6pr0QqEPfq1DcNS8ckf2qDlPa2WYLurahtIzIMXOJOthfbrT+OzME
kX2rDoZP2aKG6cHo5vdRSRx3AlgmCz541W5FZP9OgL4W67PLf9uMun0zzjUK
JkB0ukL3knf+iOzjCfCP4/ncDw2+iH1fR2gomQDBggCVnodrEdnPE0BX1fvJ
+zpP5Dy7xCeMqwEDBV33TcNWIrKvNeBZW/CiKJfFKObo7Nk1Ag2ApoPjNRGW
iOxvDZCB4053b+niU7L0AZFogL9wQkBNwaL/9rkGRHygDL6kLseSkBVtm7kT
QfOqifKK9+6Y7PeJEHepPSL5pxdmSCQV1wUTof1TQJCG1gZM9v1E8N3k3BjC
9Mc2DgH7lSQTwSaiN7k7LxCT/T8RisOYDnHGW/Hc5h+XzrM0Ia5G5smJ479j
4gNNWGVcNlVqGIIfKDkc80KaYFPIinx1eBsmftCEfVGvZ4yphOMA++TUMb4m
HPEzL4q9HYGJLzQhP2ZbsvG3SPxPxMPI02JNePboOK43i8LEH5rQp77j2EKP
aJxzauJGd6wJDzqY19bsicHEJ5rwVT90/E1JLLZo9VrxU6oJ9W19f15v2ImJ
XzTBtE/m+Y2eOIw1CqxPsrRgzjM9rT/kdmPiGy163rE/ig3i8dolHcYrkRac
1Dy+2GX2Hkz8owXutmXKuY57cf9OC9VBvha8e2JXEe4iwMRHWjBlUkF/1ZoE
nHaePqBiLWgturb+ikUiJn7SgpqTd/K4pxOxyYdr7cuwFsQ1tG51mJyEia+0
wN9pSK6rIAnfYA8/+irVgn3Oexr0WEJM/KUFPQu3q79MF2I318WVuSwmPB43
m8seFmLiMybwbl6gmkOScZcg7SQgJizz7YzVeJWMid+Y0HCMO7neaR/eSx9P
KZ8Jnn5fbnw/uw8T3zHhmsNfVoWaKZjdq73roJgJ/uabwu5GpWDiPyZYBhVq
BEpS8AXD9VvsMBN+aZgkJFmlYuJDJriXfes1E6XipR7FazqlTDjQ4jzdtScV
Ez8ywfBW55NhhzT8JqV7UTZLG9oYmQyHg2mY+FIbcvw9D2p3puHoKkvz+Ugb
7J+rtaZYp2PiT2142XiqJj8xHav179B6z9eGmvyCi+sepWPiU21ItItPadTe
j0sn3xpJE2uDxpHI3L/X7cfEr9qQ2i5//GPhfmznM94zB2uDZdq7G4Xv92Pi
W23ovnfHY6ZJBm7KWtb8WqoNys8pqwLfDEz8qw2zp1ZsGczNwKF3M6uFLBYk
ugXawPMMTHzMgssWm6ZlKGdiBm3bGYgFx7dX/t3mkImJn1nwS9omXBKZif8d
h4TPgsFLb14+OJmJia9ZIJzcyolrysRWfpsS94pZcF78Z7KvTBYm/mbBhOYd
IUmWWfjhodJQc8yCe90x0/7yzsLE5yxIf9tnWJWQhQMffPJ+KqV5k9zFzrIs
TPzOgoOCvoV7H2fhnyNznOJYbIjUYXGogSxMfM+G+2dyRFO1s3HO3J0zJyE2
xFa8aFlpk42J/9lwV7OMNYGXjS2C7ug28tngNbzMLXpHNiY9wAaj7s/bsqhs
XJMvJx8lZsOd2HBH/3PZmPQBG8wOz+P/upeNfZ669BtgNtTG+4RtfZ+NSS+w
YXK2atm5oWw8IJfTWi9lw4JcK4cWDREm/cCG70yw/muKCKfZvry3naUDji3z
fBQXiTDpCR2wOSF1NVotwsbbDa/oIB04eDd2JwSIMOkLHeDM7mDvihLhGycC
CzBfByznfLV4tk+ESW/ogGKdwd7Vh0V49cszacFiHYjqaDk9UirCpD90oKK6
SfHjVRHuVqUfQKwDGqMCrFIrwqRHdGBwQmV13FMRFqB5m6qkOpBzJvXmgjYR
Jn2iA6nxOhare0WYHR3vspnFAdmpN9fUfRdh0iscQOmaC4vGRPjCmbs26ogD
VgWbrncpU5j0CwcOvWjbWMyk8LK3SqbX+Rx46W0nlhhQmPQMB3bqzU1On0Lh
Nq3VapvEHHBfbWZSa0lh0jccuOnQap5mQ+FoZ/EPRcwB1oj3lLd2FCa9wwFD
3qntD50orB7f+uGSlAPBXo+merhQmPQPB4rkahx2raFwySXTJz4sXei5HBbj
7EVh0kO60FdQ73tnPYXtO4NuyiJdyE9s4HX4UZj0kS6oV1/NubWFws26F0rO
8nVh1bApZzmfwqSXdGF0dEadaDuFQ9y+i34T60LwhdJl4kgKk37ShZrZyHxD
DIUZwoW7R6p1ocq8ob47jsKkp3Sh2Ji3ftEeCuffSNh6Skpfz0PwyyeBwqSv
dKHkr4PiZUIKW3++576apQczFzQMMlIoTHpLDybv5t87lEbhhybq9kOOenDl
3sScX/spTPpLD0xs6qoXZlE4gOc5rZivB9b50wp/E1GY9JgecEaL1rnm0PNK
P8p0EetBfECwoulBCpM+o++XfSv/5SF6XnfejX6r1oMiv+bv4YcpTHpND9wi
NF9+OUJh7l9TpPlSPfA4/+WLx1EKk37Tg4/X1Z8X5tHzMg+VLGHpQ9fz2eNN
+RQmPacPXNvZH/86Rs9rwxXc56gPfiU9zWMFFCZ9pw/2CmbsfwrpeVH0A8PX
h+eu0a/eF1GY9J4+HJhs4Fh5nMKp9Q5HHMX6wKx/7JVQTP33/qsPc0r2mSw8
QWHTn8lJPdX60DlvRVYXzaQH6d9T0SlIOUnPa2bjthypPnR8PvVYr4T6731Z
H1xWKzqW0LwmUNNnIcsAXCf5UGalFCa9aADe+sGRR2nuOeK9pMPRABy36GUo
nKL+e782AEXb4egQmvc+KpiVyTeAuxav6hpoJj1pAMrOaNyojMIcmY96NmID
8FikdHo7zaQvDcAs65FVJc0XbLgKb6sNYN70LcxhmklvGkB/6NqLC0/T54sf
PpAiNQD9y87BUTST/jSAq/Vex87Q/K7w+ptZLEN465Rd8Jpm0qOG4Kdq+4fi
Gfp8NQ3fb3E0BFNl+8VzaCZ9agiMqLAob5rVlZwqEvmG4Hr244FdNJNeNYTf
2xe9yqO5lH5cuGJDiLjdtbeSZtKvhmBnuO1GE832EX+mN1XT1zc9f+UzzaRn
DeH9GZ0CRjmFJaWs6HipIawI7y3i0Ez61hDWtfm1T6c59PV6vyksIzjT0J9s
TzPpXSMYgvCzq2iW0zjh+sTRCG6mO+/YQDPpXyNYuz5vKJjmPKeeebF8Ixgs
D+PF0Ex62Ahcf7woTqTZmtaHidgIzFerfs+gmfSxEchaHPIT0/zoXJT6g2oj
GLDY/LOAZtLLRgBDg89LaQ5svzUUITWCKuugn+doJv1sBBev5ggqaP7FogfM
MoZLLLPwmzSTnjaG1rtXWu7QnOPi/GetozHsT3pRV0sz6WtjgBM2jg00Txdk
3QrlG8NRSZ77I5pJbxuD1hs5+ac019I5yRIbQ8H4Nf8mmkl/G8PL5MVhL2j2
6dHNuVNtDOrKhdavaCY9bgwWMtMqW2keMPCLD5Iaw8DSG2NtNJM+NwbWs5KJ
72lOcz8VNJFlAq8vS762/zuv//e6CXg61xV30GyS8tnjpqMJCB+lcTtpJv1u
AgPQntX177xuzXUI4JtAYfWCP7tpJj1vAudtLwz00LzmKx2oYhPg1+gN9dJM
+t4E6l11OqU0/w8mo+uM
         "]]}, {}}, {{}, {
        RGBColor[1, 0, 0], 
        Thickness[0.003], 
        LineBox[CompressedData["
1:eJwtlnlYjOsbx6d9VVPNNNNeJ0vTkTUOGj23iMoWZ2SJJMRIpIWU9n2bd6pX
iBxkaRCyZn1CSKIwQgrHUoYopEXb7/2dZ/6a63O9z8w173U/9/f7sQvYvHCt
KovFclNhsf7/OSNrY0uvrB2NCSysvyvZimyOffIYNfgTNfioXNvRk4jmsiNs
4kUdSPSh5WHvlSQUu12l87GsA1XGnXH/OzoZlb7LqbEf7ECty9+MXDUlBTXO
Ni+OEP1C4dsWL1frTkH6F45uvyf7hej0cam886nIxXq8t9ngL7TB7wGK3pSG
gtLw8CBRJ0ot7tTTH5GOCttn91+TdaIX/WvXHmtKR9VLXzw1GOxEqh5j7zvm
ZaCeW2uO+4u60B/JCTfDZmQih5Hf48/KutA1raXtKzsy0ZKdMYvVB7uQcFq4
+cODWShtQGeUj6gbSZa7jtszJxtdWlegXiLrRoE/5AGHOrJRc90fr3oGupH2
C67FvT05yHTK6bLZoh400ugsv9lFgmYUu6QXyXpQjRzCXjdIUIR+lV/bQA/i
p889Rm2l0JEI0YRpot9Idru0bqOWFD19/VYvX/YbbZkZvObRAinzv4PffRj4
jVSmJWmsKJSicWU95RNFvWjdzfpQnX+lKMA8lUqX9aKskC/llcNyUW6ScWDD
QC8a1vvHX/Hrc9HN1v3CkaI+5P5IcdhJlovaFv1pEivrQ7P21Jjillxkiy8p
agf60GSDcLURQ/OQt8OMCjtRP0oISPZY4peHYnPrCsJk/QhZ+o2eWZCHTv1e
HnxnoB/hyutbPjzIQ02rFdN5ogGkNXyS64jBPKT3MMJcLBtAl6qkQrUx+Wjq
RNXvVwYG0OC2T7nBfvlo4z+Se/qiQXSu+OYH38x8VKhtsd9PNoiasl74V57L
R9VbjoWfGRhEWyY+vFLUkI92fN0zTMWRBXvci8a/GchH3D/eso+LWGDU9GVv
vC2NSn2G9y2MY0F0E3dxFKIRuY8sKK1n+93xpVEjPvvksJwFak4mbr4RNArr
6L4+d5B5rqM+emI2jfQESNYpUIHJD8q+eh+gUfGKFPofkQo43X/48WgZjVzy
HsR5xKlA8PKTNs4VNHpy1yjou0wFZFOr3H89oNGG3sU+hXIVeLNB+2iLnEaq
Y/ZPmz6oAnc+3hun84pGhWs+jGwVqILhjf1JS17TaOweR/5OkSp09X55Jmf4
/sMQNdc4VfhuazsktpFGq1QvfWuWqcJP06qzouc06pnY/5KSqwIvfUnn0loa
SYOm35k0qAp2Vy+fpCpp5HAg48y/AjVoG0fP775IIyyv3ZspYjjEr6/gKI0W
65imjY9TA8/lI8M259Oofery0EaZGmS0Azc1hkZpoYdWpMjVIK4r4P2bNbRy
f9Vg8tlf0YmeNLr4apTzc4E6HAuv54f/SSv3WR3SfFg5V3Vp1Dzjqq4gTh0m
TOma5t+Sr9xvdaDSep033GTmdWrWv1FydXDnanf8uztfue/qEFe/t7AuOB/N
4Mkv1Qg0wKTf+xGCfOX+a0D00ulXJ7PzUXi8v8Q6TgPsGmax7zflKfNAAx7Y
df3uLslDxYrWNSFyDXjqlmP/bEueMh80IKfiQIl4Uh56unC7yy2BJnzXPWd+
uy9XmRea8PLyvm3fbuQi1Wsaxpw4TahtfD6sJzZXmR+aMPvW8bZ2YS4aNyzv
01q5Jqw8OmHgfbdUmSeaMP72Wvnbs1K0SmKNLwm0oGhWnWfnBqkyX7SgGG9L
GW8nRdKu4zt14rTAQ7W/ff4JSpk3WhAVmFt2l02hCv+/NvrKtUDIsfvrS6hE
mT9acOrw6zdNj3NQ+/3bbqUCbaBrroZipxxlHmlD/Fw/TllqNvrvdWO1YQzf
QChvzFLmkzbMuXmwxGtMFpq/r7HNW64Nlcs3LZqYkKnMK21QrUSbL9dmoFgN
8d1DAh14MsnPs9MiQ5lfOtAARxcaBqajU5t+7euI1YH0mEu6I06lKfNMBwIF
qGtlRypqep4QNlOuA3PuBuxpnJSqzDcd2LR+/mocnYL0phl47RbowvmW76WO
15OVeacL6laNp6A/CbkcL7T9HMs8d/TdZC9MUuafLmgeu3W9Y3siCjIZ0eUi
1wX5onan+osJyjzUhQ8/9DQVP+LRvh3nHuYI9MB5VeqUeaPilfmoB5HVF6vm
PIlF1R/R4TexeuBRMXaL/awYZV7qwb7i5Sz/q9GoZ15N1Fi5HuzYYGA7bXSU
Mj/1oHzsx0T14kgkKF+yIEmgD/5u5581m25T5qk+lLyly+yzItBSu48jnsXq
w4GwIsmvwTBlvupDsqPbpZ0RoSgtc8vAcLk+SJtWCYWtIcq81QdvlpocVW1C
5T/75ZGCIVBiH7K99UqQMn+HQNWfe043n1mPmpdnnqiOHQIeaw2684+vVebx
EKgTbxzwKQlA3LumiZZyhmcWGdksWqnM5yHgHSl66rx6KZo5unjJJoEBjFls
13wo+m9lXhsArF1V6uQ6G0XsHj26ItYAWDIPs7eTkDK/GV6865Fwri06osIs
iNwA4jvWHevb7IRJnhuAbWSgxsIzbli+waNxtcAQ4E0nL+fTXEzy3RD8DTeE
1SWIsKpcfvZCrCGwv5eudWctwyTvDaH7bFOU4+aV2HnqqgwtuSFc23O6UGNd
ACb5bwjZ9s5YaLAWj33aefokhw2Vqzh1mqXrMOkDNkSKn1uPn74BV2lN3bsI
seHTsdlD6bqNmPQDG9q950UNijbjVcKk1AExGzweu38e/ikEk75gw/o22x1O
dqG4O+T+lmM0G2zz0l8mLgrDpD/YUOO+5RMvJRxLjxiu8MZsCM+P1H5zOgKT
PmHOPx/Ur3m2FTs0LPLoUbBhZPO7ifLObZj0CxtYBnVO34y3Y2ywb/whjhEU
sGb1GDlGYdI3RnDGa0bPJGE0Xjz9nfVsZAS2nftfr/DcgUn/GEFHj1XxjgUx
uG2bg26H2Aii+LMT8kSxmPSREaje1W4tWhiH004yC0obQbCo2612WDwm/WQE
XpaQXf1PPLb59/xbd2wEwu3Zd6bxEjDpKyPIu926cWJ2Ar7I7X3wTWEEejLH
1OMDCZj0lxFMkfEKDmxKxHO9pl3axTGG+HePiiwaEzHpM2OoO/OVazMrCX+M
TTsEyBjOSe8oTp1OwqTfjMFMlhFay03GMcx6KsTGMDgnKjRlezImfWcMDefZ
7PqGZMz9ZLI9jzaGMEunx3cnp2DSf8Zw1M+zYEVBCi61XLbGBTPf55zdeaA9
BZM+NIbqP6t8CjxS8YwFB+Z/UBiD2r05pe77UzHpR2PY4Xr5/IXvqfhVSvOU
HI4JmL87/OCrWxomfWkC6nZTqF+5aTj8ysjhE5EJaO6+Vi9/nYZJf5pAcITd
6XxBOtZrCzV6IzaB1xlXfaaEpmPSpybgMKtv0uPydHzY/nJfGm0Cb557ffbv
T8ekX03g5uof9j9QBnZZMtgyBpuAc5xDRU58BiZ9awJ1pSMvCnEGfpLt/vSl
wgRcqxNMtfsyMOlfE0hju2n1TMzEQTezbiRyOBAZKqngh2Ri0scc2HbfLCPk
WCZWZdr2T8SBi2vqzuo0ZWLSzxy447dv11d2Fv7/OORiDrwwnlUwbHoWJn3N
gaTObYZXw7LwuJV+8TE0BwL1HgdcOpSFSX9zwFhX0Gpfl4Xv5x8OGo45UOXz
nqXbl4VJn3MgomLt19Dh2Tig6rNPrYIDXr9P/Fg3PxuTfufA+7Lu6T+2ZuOe
vjFukRwumHAPq1sUZWPS91wYmqM188vNbCwdu83JDnFBvD5VY+PHbEz6nwt5
1uccj2rlYIfA6/xqMRd0H0tTDjnkYOIDXIgraq8Re+TgikI19TCaC8/nfd6n
vi4HEz/gwsa2zRHRyTl4Sa1nmwXmQubF3vL6AzmY+AIXgm4vPmF9LQe3q0kb
KhVc2MSOC/Gtz8HEH7iQq7pLb2dbDk6bVH8nmGMK4T9Zfk+1JJj4hClQBknD
rW0k2DrYsswUmUL5szRWzAQJJn5hCm/2ha3u8pLgiwcD9mGxKWzzNDxEr5Rg
4humYPyP1mffMAmeV1+Stp42BaF//HRRqgQT/zAF3Ywr0uTdEtysy1xAbArO
LTU5P2USTHzEFDT/3lR37IoEx6IJflcUpjD4oO7esWoJJn5iCibXsq/1vJRg
bni052oOD8Ye2VtX/EmCia/wmD5fNXiiU4JLS2466yMehLAqrfjqFCb+woNS
l/kNX9kUdm/Ssr0g5sHJQ4HXx1lRmPgMD9p/JghaHSjcaDRPz4/mwQ4U4Wvj
TGHiNzxg+d/e8NiVwuEz6U5NzJx3+e2p5Ulh4js86B3Ov3dnIYX1oxv+Pa3g
gVNFT5bRcgoT/+FBzcla67Y1FC4+bftwCYcP4+i97wKCKUx8iA+Dled4WyIo
LPwQWK6C+CBun9NoFUNh4kd8+LxRxyk4mcJP+aXFx8V8MNma8zEgi8LEl/gw
8J53UzWPwhvm/pT8TfMh86W1r/duChN/4oPv17bR8/dTWDVxclTfDT54+fxd
pHqYwsSn+NBfMvZ9sIzChRfj1h5R8OFDuctQ+hSFiV/xQcOZDow8R+HxX+54
z+OYQeTOKNqqnMLEt8wg27BrR+o1Ct+30Rd2uZqBqkma/EIFhYl/mcEFq+oJ
pyopvEq0cMQBsRkkx436I7SKwsTHzKClqkhVvYaZV/puY0/aDGz2OjgE1lKY
+JkZTCsoqyl8wszr+uv+7zfM4O6wXSaHn1GY+JoZLG331U1+QWHBj6GKQoUZ
vDo3VyZ8RWHib2YQu8xRXtvEzGt4kHw6xxyum91eht5SmPgcw5uLerLfMfPy
LcOtruYw73nusisfKEz8zhyEBuu595uZeVHMhRGbg/3DkDNXPlGY+J45GD61
PCj9TOHUyqkFrrQ5FDjmzpnTyszrP/8zh2/SSdptXyls25OU0HLDHGI+LzCP
aqMw8UFzGHou+sq3dmZeTtUbpQpzGO8rNJ73g5nXf35oDn7JaVP3/GTmFcBe
MpljAbkcmP24g8LEFy2gzPTS1K5fFG4p8Jn+ztUCklaP0NPvojDxRwsYMBi1
n91N4ZgH+0ZliS1g3G5Ur9FDYeKTFnDulVl6K8M81nszZ9oCUPW42Du/KUz8
0gIqm+235/ZSuNRZoNF0wwLipMZjFvQx8/rPNy3Aw4a7QKOf2S/x5vYUhQV4
vaQTTjFM/NMCZNUn/eYOUPh10YVXoziWUJKeEvOOYeKjlnDrc2nQpkFmv570
3n3uagnj74Sc/s4w8VNLyHhhsmYiS4r1tdzOxostIXGbOy+EYeKrlqAyOc7x
KMOHmesioC3Blf3t6QuGib9aglNp00xtFSkWhjxKf3KD+T1FwzlnhonPWsI/
LXIPP4blhznh0QpLOP9ZODaFYeK3lmD1fWiBjOGgl8tWDuVYwRD+iv0PGCa+
awWLH1ObvjCsZnDQ66GrFaz8uVygoyrFxH+tYOuJsLahDO9xa5mwVWwFbctO
vHFlmPiwFdius+AtZng8Ux82tBXsVh9XFsww8WMrOK5RfS+R4QcnwvSrbljB
5vMorIBh4stW4FWRXF3CcMDby10hCit4PHP8+8sME3+2Al3Wgcf3Gf7NYQbM
sYa9O7+UvGCY+DTDI02imxmWes58dMvVGrYIWEt/Mkz82hosJuxaOMiwY2z2
5SCxNehn3d2qqybFxLet4WBB/lMOw7cYneTQzPmWEVutGSb+bQ334ps2jGB4
SQtfev2GNXzM9bo+mmHi49ZwIXdO5F8Mt1usjA5UWMPDWuOjrgwTP7eGV9sd
vN0ZTvM+EmjIsYFCq9i42QwTX7eBspOhwgUM26R8WVDuagOa2o0SH4aJv9vA
M55hrC/D5ZfHTl0ltoHzES1sf4aJz9tAXumjuWsYnv+NEVTaBoLNb09ZzzDx
extIXO3XFMTw/wBaR3lX
         "]]}, {}}}, {}}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
      FormBox["t", TraditionalForm], 
      FormBox["C", TraditionalForm]}, AxesOrigin -> {0, 0.}, AxesStyle -> 
    Thickness[0.003], ImageSize -> Large, LabelStyle -> Larger, Method -> {}, 
    PlotRange -> All, PlotRangeClipping -> True, 
    PlotRangePadding -> {{0.158308, 0.158308}, {0.00151826, 0.00151826}}],
   TagBox[
    GridBox[{{
       TemplateBox[{
         SuperscriptBox[
         "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(d\\)]\\)\"", "\"2\""]}, 
        "PointLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[1, 0, 0]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"1", ",", "0", ",", "0"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}, {
       TemplateBox[{
         SuperscriptBox[
         "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(u\\)]\\)\"", "\"2\""]}, 
        "PointLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], {
                    InsetBox[
                    FormBox[
                    StyleBox["\"\[FilledCircle]\"", 
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1]], FontSize -> 8.96, Plain, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {8.96, 8.96}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.06401785714285718] -> 
                    Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"PointLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "0", ",", "1"}], "]"}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", #, "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
                 RowBox[{"LegendMarkers", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Automatic", ",", "8"}], "}"}]}]}], "}"}]}], 
           "]"}]& )]}}, AutoDelete -> False, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Print",
 CellChangeTimes->{
  3.575429060447073*^9, 3.57543107071251*^9, 3.575431162228614*^9, 
   3.575431207960642*^9, 3.5791586059567137`*^9, 3.579158693808526*^9, 
   3.57915873727352*^9, 3.5791587720126867`*^9, 3.579159131484172*^9, {
   3.5791591832235866`*^9, 3.579159206849784*^9}, {3.579159287820422*^9, 
   3.579159307424012*^9}, 3.580894581122926*^9, 3.5808947748737407`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{824, 689},
WindowMargins->{{74, Automatic}, {0, Automatic}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 20740, 438, 1592, "Input"],
Cell[CellGroupData[{
Cell[21344, 464, 697, 12, 62, "Print"],
Cell[22044, 478, 30627, 634, 364, "Print"],
Cell[52674, 1114, 694, 12, 62, "Print"],
Cell[53371, 1128, 31150, 643, 364, "Print"],
Cell[84524, 1773, 695, 12, 62, "Print"],
Cell[85222, 1787, 29724, 620, 364, "Print"],
Cell[114949, 2409, 697, 12, 62, "Print"],
Cell[115649, 2423, 30965, 640, 364, "Print"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
